使用PowerPoint 2003中的VBA居中形状

Question

我在编程上将表和图形从Excel复制到PowerPoint。

理想情况下，我想将图形居中放在幻灯片上，并根据需要调整它们的大小以适合幻灯片。

这不应该是太辛苦了，我可以检查&修改.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