Показать и скрыть img с помощью vba

Question

Мне нужно показать или скрыть изображение на разных листах. Может кто-нибудь мне помочь?

Вот мой код VBA:

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

Answer 1

Просто проверьте, если уже виден или нет, и делать oppsite:

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

Answer 2

Я предпочел бы иметь Еогеасп заявление, в котором вы можете корыто цикл ваши 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 

Конечно, вы должны запустить свое мероприятие на каждом этапе ge с помощью кнопки или чего-то еще. Или даже когда страница загружается, установите img для этой функции