ScaleHeight在PowerPoint VBA中的应用
ScaleHeight在PowerPoint VBA中的应用
提问于 2014-04-29 13:52:16
我在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/en-us/library/microsoft.office.interop.powerpoint.shape.scaleheight(v=office.14).aspx
我不知道我做错了什么？
(我希望PowerPoint不要调整图像的大小，因为这会导致分辨率的下降。但是，如果没有“ScaleHeight”行，PowerPoint会自动调整图像的大小，如果它大于幻灯片)。
回答 2
Stack Overflow用户
回答已采纳
发布于 2014-04-29 14:13:08
从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，而不是PowerPoint的VBA：
http://msdn.microsoft.com/en-us/library/office/ff743874(v=office.14).aspx
Stack Overflow用户
发布于 2014-04-29 14:18:00
只需使用Call关键字
Call oPic.ScaleHeight(100, msoTrue, msoScaleFromTopLeft)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/23366671
复制相关文章
相似问题
腾讯云开发者
