Question

我必须在不同的纸张上显示或隐藏图像。任何人都可以帮助我吗？

这是我的vba代码：

Sub showhide()
    With ActiveSheet.Shapes("Picture 1")
    .Visible = Not .Visible
    End With
End Sub

Answer 1

只需检查是否已经可见并进行对话：

Sub showhide()
 With ActiveSheet.Shapes("Picture 1") 
  If .Visible = False Then
    .Visible = True
  Else
    .Visible = False        
  End With
End Sub

Answer 2

我宁愿有一个foreach语句，你可以通过你的imgs循环并设置它们

Set shapeList = ActiveSheet.Shapes
        For Each shp In shapeList
            If shp.Visible = true Then
                shp.Visible=false
           else
                shp.Visible=false
            End If
        Next shp

当然，您必须使用按钮或其他内容在每个页面上启动您的活动。或者甚至在页面加载时将img设置为此函数

使用vba显示和隐藏img

2 个答案: