如何将Shape粘贴到VBA中Powerpoint演示文稿的备注页面？

Question

我正在尝试使用以下代码将复制的形状粘贴到注释页面中，但粘贴命令失败并显示错误“指定的数据类型不可用”。如果剪贴板包含文本而不是形状，则它可以工作。任何帮助表示赞赏

Dim oSlide As Slide
Dim oShapes As Shapes

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

Answer 1

这是PPT 2007/2010中的一个已知错误，但在2013年修复。 对于2007/2010，请切换到备注页面视图，转到所需的备注页面，然后使用ActiveWindow.View.Paste获得相同的效果。