我目前有一个 PowerPoint 宏,它可以在当前幻灯片中以原始大小插入图片:
Sub Insert_Traverse_2()
Dim oPic As Shape
Set oPic = ActiveWindow.View.Slide.Shapes.AddPicture("\\nlamvfs00065\homes\nlkpec\newpic.png", False, True, 0, 0, -1, -1)
End Sub
如何“获取”图像的大小?我想做一些类似于
Powerpoint VBA Macro to copy object's size and location and paste to another object
但是“ShapeRange”似乎无法为我创建的对象选择。
最佳答案
试试这个:
Sub Insert_Traverse_2()
Dim oPic As Shape
Set oPic = ActiveWindow.View.Slide.Shapes.AddPicture("\\nlamvfs00065\homes\nlkpec\newpic.png", False, True, 0, 0, -1, -1)
With oPic
MsgBox .Width
MsgBox .Height
MsgBox .Left
MsgBox .Top
End With
End Sub
关于vba - 获取图片的大小,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/23361823/