在PowerPoint 2003中使用VBA使形状居中

Question

我正在以编程方式将表格和图形从Excel复制到PowerPoint。

理想情况下，我想将图表置于幻灯片中心，并根据需要调整大小以适应幻灯片。

这不应该太难，我可以检查＆amp;修改形状的.Top，.Left，.Width，.Height，但如何找到幻灯片本身的宽度/高度以进行正确定位？

Answer 1

以下将为您提供高度和宽度......

除以2：D

Sub a()
   Dim a As Presentation
   Set a = ActivePresentation
   MsgBox a.PageSetup.SlideHeight, a.PageSetup.SlideWidth
End Sub

HTH