在PowerPoint VBA中使用ScaleHeight

Question

我在PowerPoint中有以下“尝试”宏，该宏可将图片插入当前幻灯片：

Sub Insert_Traverse_2a()
    Dim oPic As Shape
    Set oPic = ActiveWindow.View.Slide.Shapes.AddPicture("\\nlamvfs00065\homes\nlkpec\newpic.png", False, True, 0, 0, -1, -1)
        oPic.ScaleHeight(100, msoTrue, msoScaleFromTopLeft)
End Sub

但是，带有“ ScaleHeight”的行给出了语法错误。 从文档开始

http://msdn.microsoft.com/zh-cn/library/microsoft.office.interop.powerpoint.shape.scaleheight(v=office.14).aspx

我看不到我在做什么错？

（我希望PowerPoint不调整图像的大小，因为这会导致分辨率下降。但是，如果没有'ScaleHeight'行，PowerPoint会自动调整图像的大小（如果它比幻灯片大）。

Answer 1

从ScaleHeight方法中删除括号：

Sub Insert_Traverse_2a()
    Dim oPic As Shape
    Set oPic = ActiveWindow.View.Slide.Shapes.AddPicture("c:\users\david_zemens\desktop\logo.jpg", False, True, 0, 0, -1, -1)
        oPic.ScaleHeight 100, msoTrue, msoScaleFromTopLeft
End Sub

另外，请确保您正在查看文档的正确版本。 链接到的是VB.net，而不是VBA for PowerPoint：

http://msdn.microsoft.com/zh-CN/library/office/ff743874(v=office.14).aspx

Answer 2

只需使用Call关键字

Call oPic.ScaleHeight(100, msoTrue, msoScaleFromTopLeft)