excel - 刚刚粘贴的图形的索引号

Question

我想将一些东西粘贴到 PPT 中（粘贴到已经有对象的幻灯片上），然后更改它的大小。在第 1 行的以下代码中，我将一个范围粘贴到先前选择的幻灯片上。之后，我想将变量 shp 设置为形状，然后用 .top .width 等更改它。我的问题是最后一行中的 (2) 需要是我刚刚粘贴的形状的索引号。我怎么做？

slde.Shapes.PasteSpecial 2


Set shp = slde.Shapes(2)

标签： excelvbapowerpoint

Answer 1

您可以像这样使用Shapes.Count属性：

Dim sld As Slide
Dim shp As Shape
    
sld.Shapes.PasteSpecial ppPasteDefault
Set shp = sld.Shapes(sld.Shapes.Count)