如何选中指定单元格内的所有形状？VBA代码报错求解决方案

错误原因分析 #

你代码里的sh.SelectAll是核心问题：SelectAll是Excel中Shapes集合的方法（用来选中工作表里所有形状），而不是单个Shape对象的方法。你在遍历单个Shape时调用这个方法，自然会触发运行时错误。

正确实现方案 #

要选中单元格B2内的所有形状，我们需要逐个判断每个形状的左上角单元格是否与B2相交，然后通过Select方法配合Shift参数来实现多选：

Sub SelectShapesInCell()
    Dim sh As Shape
    Dim firstSelect As Boolean
    
    firstSelect = True '标记是否是第一个选中的形状
    
    '先取消当前所有选中内容，避免干扰结果
    ActiveSheet.Cells.Select
    Selection.Clear
    
    For Each sh In ActiveSheet.Shapes
        '判断形状的左上角单元格是否落在B2范围内
        If Not Intersect(Range("B2"), sh.TopLeftCell) Is Nothing Then
            If firstSelect Then
                sh.Select '第一个形状直接选中
                firstSelect = False
            Else
                sh.Select (False) '后续形状按住Shift选中，保留之前的选中状态
            End If
        End If
    Next sh
End Sub

额外优化说明 #

• 如果你的形状可能部分覆盖B2（而非仅左上角在B2），可以同时判断形状的右下角单元格，确保形状范围与B2有交集：

  If Not Intersect(Range("B2"), Range(sh.TopLeftCell, sh.BottomRightCell)) Is Nothing Then
  

• 若不需要清除原有选中状态，可以省略开头的取消选中步骤，但建议保留，保证最终选中结果的准确性。

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