通过VBA在Workbook的所有图纸中设置两种形状的可见性和不可见性

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

关键问题是不要重复指定工作表。