关于vba调整图片大小和位置的问题，单位搞不明白

贵峰

附件里的ppt第一张是用vba执行的效果，第二张是想要结果。我调整宏里宽高参数，一直都不对，搞不明白单位是什么，怎么才能调整成想要的效果，高手们帮忙看看。

Sub adjust()

  DimmySlide As Slide

  DimmyShape As Shape, i_Temp As Integer

  OnError Resume Next

  ForEach mySlide In ActivePresentation.Slides

    For Each myShape In mySlide.Shapes

      If myShape.Type = msoPicture Then

         With myShape

           .Left = 0

           .Top =0

           .Height = 1000

           .Width = 1000

         End With

      End If

   Next

Next

End Sub

Roam0306

前几天尝试做过用宏调整PPT里图片的位置，应该和调整图片大小是一样的单位。
这个单位是Point，与厘米的换算是 pt = cm * 72 / 2.54 ，可以试试看

贵峰

Roam0306 发表于 2017-12-29 17:07
前几天尝试做过用宏调整PPT里图片的位置，应该和调整图片大小是一样的单位。
这个单位是Point，与厘米的换 ...

非常感谢，单位就是这样的。