单击时制作图像 appear/disappear

Question

假设我画了一个矩形，然后插入一张图片并将其放在矩形上。我现在想做的是当我用鼠标点击图片时它消失了，我只能看到矩形，但是当我点击矩形时，相同的图像再次出现。

Answer 1

以下代码可重复用于多个 pictures/rectangles。诀窍是矩形必须以带有前缀 rect_ 的相应图片命名，例如我的图片称为 'Picture 1' 并且相应的矩形将重命名为 'rect_Picture 1' 并将 'Picture 1' 放在它。将以下代码分配给两个对象。

Sub TogglePictureVisibilty()
    Dim picName As String

    'Capture the macro calling object name
    picName = Application.Caller

    'Remove rect_ from object name if exists
    If Left(picName, 5) = "rect_" Then
            picName = Mid(picName, 6, Len(picName))
    End If

    'Hide if visible and vice versa
    ActiveSheet.Shapes(picName).Visible = Not ActiveSheet.Shapes(picName).Visible
End Sub

希望对您有所帮助。

单击时制作图像 appear/disappear

Make image appear/disappear when clicked

excel

vba