2013-12-24 30 views
4

我使用VBA以下行来设置一个Excel选择我只是粘贴到PowerPoint中的大小/位置在PowerPoint对象的位置:设置使用VBA

Set Shp = _ 
PPApp.ActivePresentation.Slides(_ 
PPApp.ActiveWindow.Selection.SlideRange.slideindex).Shapes(3) 
Shp.ScaleHeight 0.75, msoCTrue 
Shp.ScaleWidth 0.75, msoCTrue 
Shp.Left = 0.58 
Shp.Top = 1.6 

但是,宏运行后,我形状的左上角的水平位置为0.01“,左上角的水平位置为”0.02“,根据我的代码,位置应该是0.58和1.6。 ?

+1

默认单位是'Points'(72磅= 1英寸) –

回答

5

为了增加Tim的说法,PowerPoint使用点作为它的度量系统,至少在自动化的目的上是这样:

Shp.Left = 0.58 * 72 
Shp.Top = 1.6 * 72