无需循环快速隐藏Excel形状（一次性完成）

在Excel VBA中，没有原生的完全跳过循环的方法直接批量设置所有Shape的Visible属性，但可以通过Excel对象模型的特性，实现代码层面无显式循环的简洁写法，同时利用内部优化提升效率：

方法1：利用Shapes.Range配合名称数组批量操作 #

这是最接近需求的方案，仅需一次循环收集形状名称，后续通过原生批量操作设置属性，代码简洁且效率较高：

Sub HideAllShapes()
    Dim shapeNames() As Variant
    Dim shapeCount As Long
    Dim i As Long
    
    shapeCount = ActiveSheet.Shapes.Count
    If shapeCount = 0 Then Exit Sub ' 无形状直接退出
    
    ' 初始化数组并填充所有形状名称
    ReDim shapeNames(1 To shapeCount)
    For i = 1 To shapeCount
        shapeNames(i) = ActiveSheet.Shapes(i).Name
    Next i
    
    ' 批量设置可见性
    ActiveSheet.Shapes.Range(shapeNames).Visible = msoFalse
End Sub

说明：Shapes.Range接受形状名称数组作为参数，底层由Excel内部处理批量属性设置，比逐个遍历设置效率更高，代码层面仅需一次循环收集名称，无后续显式循环。

方法2：临时分组间接批量操作 #

如果不需要保留原有形状的分组结构，可以临时将所有形状分组，设置分组的可见性后再取消分组：

Sub HideAllShapesViaTempGroup()
    Dim tempGroup As Shape
    Dim shapeCount As Long
    
    shapeCount = ActiveSheet.Shapes.Count
    If shapeCount = 0 Then Exit Sub
    
    On Error Resume Next ' 处理单个形状的分组情况
    Set tempGroup = ActiveSheet.Shapes.Range(Array(ActiveSheet.Shapes(1).Name)).Group
    On Error GoTo 0
    
    If Not tempGroup Is Nothing Then
        ' 若有多个形状，先取消临时分组再重新全选分组
        If shapeCount > 1 Then
            tempGroup.Ungroup
            Set tempGroup = ActiveSheet.Shapes.Range(shapeNames).Group
        End If
        
        ' 批量隐藏
        tempGroup.Visible = msoFalse
        ' 取消分组恢复单个形状（若不需要保留分组则可省略此步）
        tempGroup.Ungroup
    End If
End Sub

说明：此方法会打乱原有分组结构，适合临时批量处理场景。

关于数组/Union尝试的补充 #

Shape对象无法使用Union方法（该方法仅针对Range对象），而Shape数组的核心用途是配合Shapes.Range实现批量选择，这也是Excel对象模型支持的唯一批量操作Shape的方式，如方法1所示。

内容的提问来源于stack exchange，提问作者SunBeam