为何Excel VBA的ShapeRange.Align在PowerPoint VBA用msoFalse报错？

问题现象 #

在Excel VBA中，ShapeRange.Align方法使用msoFalse参数可正常运行，示例代码如下：

Sub testExcelVBA()
  With ActiveSheet.Shapes
    With .AddShape(msoShapeRectangle, 0, 0, 100, 100)
        .Name = "shp1"
        .Select
        .Fill.ForeColor.RGB = rgbRed
    End With
    
    With .AddShape(msoShapeOval, 300, 300, 50, 50)
        .Name = "shp2"
        .Select msoFalse
        .Fill.ForeColor.RGB = rgbRed
    End With
  End With

  ActiveWindow.Selection.ShapeRange.Group
  
  ActiveSheet.Shapes.Range(Array("shp1", "shp2")).Select
  
  With ActiveWindow.Selection.ShapeRange
    .Align msoAlignCenters, msoFalse
    .Align msoAlignMiddles, msoFalse
  End With

End Sub

但在PowerPoint VBA中，该方法使用msoTrue或msoCTrue参数时正常，使用msoFalse则触发「指定值超出范围」的运行时错误，对应示例代码：

Sub testPowerpointVBA()
  With ActiveWindow.View.Slide.shapes
    With .AddShape(msoShapeRectangle, 0, 0, 100, 100)
        .Name = "shp1"
        .Select
        .Fill.ForeColor.RGB = rgbRed
    End With
    
    With .AddShape(msoShapeOval, 300, 300, 50, 50)
        .Name = "shp2"
        .Select msoFalse
        .Fill.ForeColor.RGB = rgbRed
    End With
  End With

  ActiveWindow.Selection.ShapeRange.Group
  
  ActiveWindow.View.Slide.shapes.Range(Array("shp1", "shp2")).Select
  With ActiveWindow.Selection.ShapeRange
    .Align msoAlignCenters, msoFalse
    .Align msoAlignMiddles, msoFalse
  End With

End Sub

原因解析 #

1. 参数取值限制差异
   Excel和PowerPoint对ShapeRange.Align方法的第二个参数（RelativeTo）的有效值定义不同：

• Excel中，该参数支持msoTrue（相对于选中形状组的边界对齐）和msoFalse（相对于工作表的边界对齐）两种取值；
• PowerPoint中，该参数仅允许msoTrue/msoCTrue，因为PowerPoint的对齐逻辑默认基于选中形状的集合边界，没有“相对于幻灯片整体边界对齐”的内置选项（若要实现类似效果，需手动计算形状位置后调整坐标）。

2. 代码中的额外逻辑问题
   在PowerPoint示例代码中，先将两个形状组合为组对象后，原形状shp1和shp2会被嵌套在组内，无法直接通过原名称调用Shapes.Range(Array("shp1", "shp2"))选中，这也会干扰Align方法的执行上下文，进一步触发参数错误。

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