不知道圖片的名稱 ，那要如何選到那張圖？

jazzcarr

假設A1 儲存格中放了一張跟儲存格一樣大小的圖片， 不知道圖片的名稱 ，那要如何選到那張圖，以進行後面的其他動作？

GBKEE

回復 1# jazzcarr

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Picture, p As Picture
   
4.     For Each E In ActiveSheet.Pictures
   
5.         If E.TopLeftCell.Address(0, 0) = "A1" Then 'Address = "$A$1"
   
6.             With Range("A10")
   
7.                 E.ShapeRange.LockAspectRatio = msoFalse
   
8.                 E.Top = .Top  '位置 A1的圖片,移動到 A10
   
9.                 E.Left = .Left
   
10.                 E.Width = .Width '
    
11.                 E.Height = .Height
    
12.             End With
    
13.         End If
    
14.     Next
    
15. End Sub

複製代碼

jazzcarr

大感恩 謝謝超級版主