PowerPoint VBA中如何定义Right与Bottom属性？排查代码报错

1. 编译错误：Method or data member not found #

PowerPoint的Shape对象没有内置的.Right和.Bottom属性，不能直接通过shp.Right或shp.Bottom访问，得用现有属性手动计算：

• 右边缘位置 = 左边缘位置 + 宽度（Right = Left + Width，注意是加不是减，Left是形状左边界的坐标，向右叠加宽度才是右边界）
• 下边缘位置 = 上边缘位置 + 高度（Bottom = Top + Height，同理，Top是上边界坐标，向下叠加高度才是下边界）

2. 运行时错误'91'：Object variable or With block variable not set #

你在给Right和Bottom赋值时，shp对象还没被初始化（Set shp = ...这行写在了赋值代码之后），导致调用shp.Left时对象是空的。必须先完成对象初始化，再进行属性计算。

修正后的代码 #

Sub getPosition()
    Dim shp As Shape
    Dim shpLeft, shpRight, shpBottom, shpTop, shpWidth, shpHeight As Double
    
    ' 先初始化Shape对象，确保对象已赋值
    Set shp = ActivePresentation.Slides(18).Shapes("Group 96")
    
    ' 提取Shape的基础属性
    shpLeft = shp.Left
    shpTop = shp.Top
    shpWidth = shp.Width
    shpHeight = shp.Height
    
    ' 计算右边缘和下边缘位置
    shpRight = shpLeft + shpWidth
    shpBottom = shpTop + shpHeight
    
    ' 输出所有位置信息
    Debug.Print "Top: " & shpTop
    Debug.Print "Bottom: " & shpBottom
    
    Debug.Print "Left: " & shpLeft
    Debug.Print "Right: " & shpRight
    
    Debug.Print "Width: " & shpWidth
    Debug.Print "Height: " & shpHeight
End Sub

额外提示 #

• 变量名尽量避开VBA关键字或对象属性名（比如原代码里的Left、Top都是Shape的属性名，改成shpLeft、shpTop能避免混淆）
• 声明变量时，Dim Left, Right, Bottom, Top, Width, Height As Double只有最后一个Height是Double类型，前面的变量默认是Variant类型。如果要统一指定类型，得写成Dim shpLeft As Double, shpRight As Double, shpBottom As Double, ...

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