使用VBA隐藏/取消隐藏Excel中的特定对象

我想有一个macros隐藏/取消隐藏标注。

意图是有一个信息button，一旦按下显示或隐藏信息标注。

问题是我有其他箭头和形状，我不想被隐藏。

用下面的代码（1）我可以隐藏所有对象：

Dim sObject As Shape For Each sObject In ActiveSheet.Shapes If sObject.Visible = False Then sObject.Visible = True Else sObject.Visible = False End If Next 

和这个代码（2）我可以隐藏/取消隐藏特定的标注形状

 If ActiveSheet.Shapes("Rectangular Callout 6").Visible = False Then ActiveSheet.Shapes("Rectangular Callout 6").Visible = True Else ActiveSheet.Shapes("Rectangular Callout 6").Visible = False End If 

如何让第一个代码（1）像第二个代码（2）一样运行标注形状？

Answer 1

怎么样：

 Dim sObject As Shape For Each sObject In ActiveSheet.Shapes If Not InStr(sObject.Name, "Callout") = 0 Then sObject.Visible = Not sObject.Visible Next sObject 

希望能帮助到你！

Answer 2

由于可见属性是一个布尔值，所以可以缩短代码：

 Sub InvertAllShapesVisibility(wS As Worksheet) Dim sObject As Shape '''Invert visibility of all shapes For Each sObject In wS.Shapes sObject.Visible = Not sObject.Visible Next sObject End Sub 

如何使用它 ：

 Sub Test1_Selrac() InvertAllShapesVisibility ActiveSheet End Sub 

---

而对于一个单一的形状：

 Sub RevertShapeVisibility(wS As Worksheet, ShapeName As String) Dim sObject As Shape '''Invert visibility of all shapes containing the KeyWord For Each sObject In wS.Shapes If sObject.Name = ShapeName Then sObject.Visible = Not sObject.Visible Next sObject End Sub 

如何使用它 ：

 Sub Test2_Selrac() RevertShapeVisibility ActiveSheet, "Rectangular Callout 6" End Sub 

---

对于包含关键字的多个形状：

 Sub RevertCalloutsVisibility(wS As Worksheet, KeyWord As String) Dim sObject As Shape '''Invert visibility of one shape For Each sObject In wS.Shapes If Instr(1,sObject.Name,KeyWord) Then sObject.Visible = Not sObject.Visible Next sObject End Sub 

如何使用它 ：

 Sub Test3_Selrac() RevertCalloutsVisibility ActiveSheet, "Rectangular Callout" End Sub