Question

我希望在代码中将图像换成另一个图像。这就是我现在所拥有的：

Private Sub CommandButton3_Click()
    Dim Pic As Picture
    Me.Shapes(5).Delete
    Set Pic = Me.Pictures.Insert("C:\Downloads\cards\2h.gif")
End Sub

它大部分都在工作，除了它一直在删除错误的东西。如何知道和控制Shapes数组中的内容？换句话说，当我添加一张新图片时，如何知道它在Shapes数组中的索引？

Answer 1

仅供参考，这不是ActiveX图像。

添加后可以为图片命名：

Private Sub CommandButton3_Click()
    Dim Pic As Picture
    On Error Resume Next
    Me.Pictures("MyPic").Delete
    On Error Goto 0
    Me.Pictures.Insert("C:\Downloads\cards\2h.gif").Name = "MyPic"
End Sub

Excel以编程方式交换activex映像

1 个答案: