使用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