Установите видимость и невидимость для двух фигур на всех листах в книге по VBA

Question

Я хочу установить видимость и невидимость для двух фигур одновременно VBA.Я написал этот код:

Sub Set_Visible_Invisible()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.ActiveSheet.Shapes("btn_S2_Pasive").Visible = False
ws.ActiveSheet.Shapes("btn_S2_Active").Visible = True
Next ws

End Sub

, но он работает только для активного листа, а не для всех листов, которые есть в книге.

Любая идея приветствуется.

Answer 1

Возможно:

Sub Set_Visible_Invisible()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
   ws.Shapes("btn_S2_Pasive").Visible = False
   ws.Shapes("btn_S2_Active").Visible = True
Next ws

End Sub

Ключевой вопрос не в том, чтобы дважды указать рабочий лист.