如何将形状粘贴到 VBA 中的 Powerpoint 演示文稿的备注页中?

How do I paste a Shape into the notes page of a Powerpoint presentation in VBA?

我正在尝试使用以下代码将复制的形状粘贴到笔记页中,但粘贴命令失败并出现错误 "The specified data type is unavailable"。如果剪贴板包含文本而不是形状,它会起作用。感谢任何帮助

Dim oSlide As Slide
Dim oShapes As Shapes

Set oSlide = ActivePresentation.Slides.Item(1).NotesPage.Item(1)
Set oShapes = oSlide.Shapes
oShapes.Paste

这是 PPT 2007/2010 中的已知错误,但已在 2013 年修复。 对于 2007/2010 切换到笔记页面视图,移动到所需的笔记页面,然后使用 ActiveWindow.View.Paste 获得相同的效果。