我正在从 Excel 电子表格自动生成 PowerPoint 报告。在粘贴表格之前，我已经完成了该过程。
我使用以下方法将表格粘贴到 PowerPoint 中PPApp.CommandBars.ExecuteMso ("PasteSourceFormatting")该表格在我的幻灯片上显示为一个形状（第三个形状）。
参考我正在使用的新形状Set pShape = Slide2.Shapes(Slide2.Shapes.Count)但现在当我粘贴时，pShape被指定为“形状 2”（而不是“形状 3”）。在对象的粘贴和赋值之间是否需要做一些事情？
下面的代码，评论了问题发生的地方。 （完整代码已删除；可见here)
'Copy tables from Excel
Set rng = ws.Range("A:A")
rng.ColumnWidth = 22.75
Set rng = ws.Range("A4:C27")
'Copy the table range
Application.CutCopyMode = False
rng.Copy
Application.Wait (Now + TimeValue("0:00:02"))
'The issue occurs here!!! '-------------------------------------
'Paste the table in to the slide
Slide2.Select
PPApp.CommandBars.ExecuteMso ("PasteSourceFormatting")
'Name the new shape object
Set pShape = Slide2.Shapes(Slide2.Shapes.Count)
pShape.Name = "Slide_2_Table_1"
pShape.LockAspectRatio = False
The .Count与当前形状的上限不同.Index数字。
通过列出文档中的所有形状，可以更容易地理解编号系统：
Sub ListShapes()
'hit CTRL+G to view output in Immediate Window
Dim sh As Shape, sld As Slide, idx As Long
Set sld = ActivePresentation.Slides(1) '<-- change to your slide number
For Each sh In sld.Shapes
idx = idx + 1
Debug.Print "Shape ID#" & sh.Id, "Index #" & idx, "Name: " & sh.Name
Next sh
Debug.Print "Count of shapes: " & sld.Shapes.Count
End Sub
NOTE: There is alternative code for Excel at the bottom of this post!
为了证明，我们可以添加形状到一个新文档：
Insert（在丝带上）Illustrations], then Shapes, and the rectangle symbol. 
运行上面的程序，输出结果为：
Shape ID#2 Index #1 Name: Rectangle 1
Shape ID#3 Index #2 Name: Rectangle 2
Shape ID#4 Index #3 Name: Rectangle 3
Shape ID#5 Index #4 Name: Rectangle 4
Shape ID#6 Index #5 Name: Rectangle 5
Count of shapes: 5
请注意，Index不是此对象的属性，但它按照 Excel 在内存中存储形状的顺序进行计数（与返回的顺序相同）For Each..Next陈述。
您可以通过运行来证明这一点：
Debug.Print ActivePresentation.Slides(1).Shapes(5).Name
...在这种情况下返回Rectangle 5.
了解 Excel 如何存储形状的另一种方法是使用观察窗。添加断裂线或Stop在循环中间，然后突出显示ws.Shapes，右键单击它，选择Add Watch...并单击“确定”。浏览树以发现文档中形状的不同属性/属性。
接下来，如果我们delete再次运行上面的过程，我们将得到：
Shape ID#2 Index #1 Name: Rectangle 1
Shape ID#3 Index #2 Name: Rectangle 2
Shape ID#5 Index #3 Name: Rectangle 4
Shape ID#6 Index #4 Name: Rectangle 5
Count of shapes: 4
The ID and Name其余形状不会改变，但是the Index被重新编号以体现新的“秩序”。
...从而返回名称Rectangle 5我们现在需要使用：
Debug.Print ActivePresentation.Slides(1).Shapes(4).Name
当您通过数字引用形状时，例如.Shapes(????)，你指的是形状索引号????，不是ID数字。索引号根据需要动态分配，因此不是一个稳定的方法来指代一种形状。
.Count与形状无关索引号.理想情况下，您应该通过.Name or .ID数字。如果动态生成形状，您最好将形状列表存储在数组或集合中，以便您可以根据需要查看该列表。
如果使用的唯一原因是索引号是检索“最后创建的形状”，那么您可以使用这样的函数来获取索引号：
Function idxLastShape(slideNum As Long) As Long
Dim sh As Shape
For Each sh In ActivePresentation.Slides(slideNum).Shapes
idxLastShape = idxLastShape + 1
Next sh
End Function
用法示例：
Debug.Print idxLastShape(1) 'Returns index of last shape on slide#1
NOTE: There is alternate code for Excel at the bottom of this post!
或者，您可以让该函数返回对实际的引用形状物体，而不是数字，如下所示：
Function LastShape(slideNum As Long) As Shape
Dim sh As Shape
For Each sh In ActivePresentation.Slides(slideNum).Shapes
Set LastShape = sh
Next sh
End Function
...所以你可以通过以下方式获得“最后一个形状”的名称：
Debug.Print LastShape(1).Name
使用上面的函数，您可以使用通常用于形状的任何方法。例如，您可以删除在幻灯片 #1 上创建的“最后一个形状”：
LastShape(1).Delete
CAUTION!
帖子中的例子（包括删除示例！）不分青红皂白地返回/编辑/删除什么类型的形状！
有dozens形状类型，从图形到声音/视频以及controls。您可以使用以下方法过滤这些过程所枚举的形状
.Type的财产Shape对象，以及其他方法。有一个部分列表here，以及以下链接中的更多信息。
列出工作表上的所有形状 (Excel)
Sub ListShapes()
'hit CTRL+G to view output in Immediate Window
Dim sh As Shape, ws As Worksheet, idx As Long
Set ws = Sheets("Sheet1") '<-- change to your worksheet name
For Each sh In ws.Shapes
idx = idx + 1
Debug.Print "Shape ID#" & sh.ID, "Index #" & idx, "Name: " & sh.Name
Next sh
Debug.Print "Count of shapes: " & Sheets("Sheet1").Shapes.Count
End Sub
返回“最后形状”的索引号（Excel）
Function idxLastShape(shtName As String) As Long
Dim sh As Shape
For Each sh In Sheets(shtName).Shapes
idxLastShape = idxLastShape + 1
Next sh
End Function
用法示例： Debug.Print idxLastShape("Sheet1")
返回对“最后一个形状”对象的引用 (Excel)
Function LastShape(shtName As String) As Shape
Dim sh As Shape
For Each sh In Sheets(shtName).Shapes
Set LastShape = sh
Next sh
End Function
用法示例： Debug.Print LastShape("Sheet1").Name