如何将形状粘贴到 VBA 中的 Powerpoint 演示文稿的注释页面中？答案

【问题标题】：How do I paste a Shape into the notes page of a Powerpoint presentation in VBA?如何将形状粘贴到 VBA 中的 Powerpoint 演示文稿的注释页面中？
【发布时间】：2015-06-13 01:51:27
【问题描述】：

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

Dim oSlide As Slide
Dim oShapes As Shapes

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

【问题讨论】：

在粘贴之前，您需要复制一些内容，.Paste 紧跟在可以指定为 Destination 的内容之后。所以试试oShapes.Copy Destination:= oSlide

标签： vba copy-paste powerpoint

【解决方案1】：

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

【讨论】：