2014-01-17 84 views
0

移動宏觀圖像我有一個宏執行此與不同的宏觀圖像在Excel

ThisWorkbook.Worksheets("data").Range("A50").End(xlToRight).Select 

其移動視圖,以列的方式遠右側(因此用戶不具有滾動,因爲它的共同想要去那裏) ,我想要另一個按鈕,存在於電子表格(作爲圖像),當點擊(這將導航回),以上點移動。

我試圖剪切和粘貼像

ActiveSheet.Shapes.Range(Array("Picture 23")).Select 
Selection.Cut 
ThisWorkbook.Worksheets("data").Range("A50").End(xlToRight).Offset(-2,0).Select 
ActiveSheet.Paste 

但只是貼的形象,不再有與​​之相關聯的宏。

通過玩弄錄製宏我注意到,當我走動

Selection.ShapeRange.IncrementLeft -607.8260629921 

的圖片,但我不知道如何使該變量發生這種情況。什麼是607像素?如果是這樣,有沒有一種方法可以將已知細胞的「長度」導出到活動細胞? 我從第一個按鈕導航的地方是靜態的。

回答

1
Dim rng as Range 

With ThisWorkbook.Worksheets("data") 

    Set rng = .Range("A50").End(xlToRight) 

    rng.Select 

    With .Shapes("Picture 23") 
     .Top = rng.offset(-1,0).Top 
     .Left= rng.Left 
    End With 

End with