Excel VBA 将图像设置为对象变量

本文由日文译成中文。

记录如何将工作表中插入的图像设置为对象变量。

< Sponsored Links >

示例

将索引号为 “1” 的图像设置为对象变量，并显示图像名称和一条信息。

Sub test()
     Dim shp As Shape
     Set shp = ActiveSheet.Shapes(1)
     MsgBox shp.Name
 End Sub

将对象变量设置为图像名称 “Picture 1”，并显示图像名称和信息。

Sub test()
     Dim shp As Shape
     Set shp = ActiveSheet.Shapes("Picture 1")
     MsgBox shp.Name
 End Sub

逐一设置纸张上的所有图像，并显示其名称和信息。

Sub test()
     Dim shp As Shape
     Dim cnt As Long
 
     cnt = 1
     For Each shp In ActiveSheet.Shapes
         Set shp = ActiveSheet.Shapes(cnt)
         MsgBox shp.Name
         cnt = cnt + 1
     Next shp
 End Sub

< Sponsored Links >