使用VBA在PowerPoint中设置对象的位置

Question

我使用以下VBA行来设置我刚粘贴到PowerPoint中的Excel选择的大小/位置：

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。关于为何没有正确设置职位的任何想法？

Answer 1

为了补充Tim的说法，PowerPoint使用积分作为其测量系统，至少为了自动化目的，所以请改为：

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