PowerPoint VBA中的PasteSpecial发送成员未找到错误

Question

我正在考虑在Powerpoint上复制某些对象（形状，图形），然后将它们作为图像粘贴回来。

我能够很好地选择和粘贴对象，但是当我为PasteSpecial编写相同的语法时，Powerpoint会抛出错误： 编译错误：未找到成员或数据成员

Sub AddPic()
Dim sld As Slide
Dim shp As Shape
Set sld = Application.ActiveWindow.View.Slide
Set shp = sld.Shapes.AddShape(Type:=msoShapeRectangle, _
    Left:=50, Top:=50, Width:=100, Height:=200)

shp.Copy

shp.Fill.ForeColor.RGB = vbBlue
sld.Shapes.Paste
End Sub

以上工作符合预期。

现在如果我用PasteSpecial替换sld.Shapes.Paste，我得到上面的错误。

Sub AddPic()

Dim sld As Slide
Dim shp As Shape
Set sld = Application.ActiveWindow.View.Slide
Set shp = sld.Shapes.AddShape(Type:=msoShapeRectangle, _
    Left:=50, Top:=50, Width:=100, Height:=200)
shp.Copy  
shp.Fill.ForeColor.RGB = vbBlue

'sld.Shapes.Paste

sld.Shapes.PasteSpecial

End Sub

Error while using PasteSpecial

有没有人遇到过类似的问题？预先感谢您的帮助。 我正在使用最新的Powerpoint for Mac。