如何解决刚粘贴的图形的索引号
我想将一些东西粘贴到PPT中(到已经有对象的幻灯片上),然后更改它的大小。在下面的第1行代码中,我将一个范围粘贴到先前选择的幻灯片上。之后,我想将变量shp设置为形状,然后使用.top .width等对其进行更改。我的问题是最后一行中的(2)必须是我刚刚粘贴的形状的索引号。我该怎么办?
slde.Shapes.PasteSpecial 2
Set shp = slde.Shapes(2)
解决方法
您可以像这样使用Shapes.Count属性:
Dim sld As Slide
Dim shp As Shape
sld.Shapes.PasteSpecial ppPasteDefault
Set shp = sld.Shapes(sld.Shapes.Count)
,
使用对象。这样,您就不必担心找到正确的对象。这是一个例子
Dim shp As Object
Set shp = sld.Shapes.PasteSpecial(2)
Debug.Print shp.Name
With shp
'~~> Do what you want here
End With
提示:
尝试而不使用直接常量值...
如果您使用的是早期绑定,请更改
Set shp = sld.Shapes.PasteSpecial(2)
到
Set shp = sld.Shapes.PasteSpecial(ppPasteEnhancedMetafile)
要进行后期绑定,请在顶部声明
Const ppPasteEnhancedMetafile As Integer = 2
然后使用
Set shp = sld.Shapes.PasteSpecial(ppPasteEnhancedMetafile)
这样,即使您读了代码,例如说6个月后,您仍会知道该代码在做什么。 (只需我的两分钱)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。