VBA开发：如何通过形状名称获取形状（含Oval）的位置信息

基础实现逻辑 #

VBA的Shapes集合支持直接以形状名称作为键索引对应对象，无需全量遍历集合，读取对象的Left（左边界坐标）、Top（上边界坐标）、Width（宽度）、Height（高度）属性即可拿到完整位置信息，属性单位为点（1英寸=72点）。

单形状精准匹配（按指定名称取位置） #

通过名称匹配单个形状时，必须加入容错逻辑——如果目标名称不存在，直接索引会触发运行时错误。
示例代码（默认适配Excel，PowerPoint/Word仅需调整Shapes集合的所属对象即可）：

Sub GetSingleShapePosition()
    Dim targetShape As Shape
    Const TARGET_SHAPE_NAME As String = "Oval 1" ' 替换为实际要匹配的形状名
    On Error Resume Next
    ' 对应PPT可改为ActivePresentation.Slides(1).Shapes，Word可改为ActiveDocument.Shapes
    Set targetShape = ActiveSheet.Shapes(TARGET_SHAPE_NAME)
    On Error GoTo 0
    If targetShape Is Nothing Then
        Debug.Print "未匹配到名称为" & TARGET_SHAPE_NAME & "的形状"
        Exit Sub
    End If
    ' 输出位置信息，可直接用于后续新形状绘制的参数
    Debug.Print "目标形状位置参考："
    Debug.Print "Left=" & targetShape.Left & " | Top=" & targetShape.Top
    Debug.Print "Width=" & targetShape.Width & " | Height=" & targetShape.Height
End Sub

Oval（椭圆）形状专项核查 #

无需记忆椭圆的自动生成名称，可通过形状类型枚举批量筛选所有椭圆，核查全量椭圆的位置：

• 椭圆对应的枚举值为msoShapeOval，筛选时需同时判断形状为自动几何图形（msoAutoShape类型）

批量核查椭圆位置的示例代码：

Sub AuditAllOvalPositions()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoAutoShape Then
            If shp.AutoShapeType = msoShapeOval Then
                Debug.Print "检测到椭圆：名称=" & shp.Name & _
                            " | Left=" & shp.Left & " | Top=" & shp.Top & _
                            " | 尺寸=" & shp.Width & "x" & shp.Height
            End If
        End If
    Next
End Sub

结合业务需求的延伸用法 #

拿到参考形状的位置后，可直接将参数传入AddShape方法，完成同参照基准的新形状绘制，示例：

' 参照已匹配到的Oval 1位置，在其右侧偏移30点的位置绘制同高度的矩形
ActiveSheet.Shapes.AddShape _
    Type:=msoShapeRectangle, _
    Left:=targetShape.Left + targetShape.Width + 30, _
    Top:=targetShape.Top, _
    Width:=120, _
    Height:=targetShape.Height

常见注意点 #

• 形状名称为大小写敏感的，"oval 1"和"Oval 1"为两个独立的形状索引项
• 不同Office组件的Shapes集合所属对象不同，需根据实际开发的平台调整引用路径
• 形状坐标原点为画布/工作表的左上角，向下、向右为坐标正方向

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