Fatal编程技术网
  • vba/
  • 如何在VBA中将形状粘贴到Powerpoint演示文稿的备注页中？

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

vba

如何在VBA中将形状粘贴到Powerpoint演示文稿的备注页中？,vba,copy-paste,powerpoint,Vba,Copy Paste,Powerpoint,我试图使用以下代码将复制的形状粘贴到注释页中，但粘贴命令失败，错误是指定的数据类型不可用。如果剪贴板中包含文本而不是形状，则该选项有效。谢谢你的帮助 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中的一个已知错误，

我试图使用以下代码将复制的形状粘贴到注释页中，但粘贴命令失败，错误是指定的数据类型不可用。如果剪贴板中包含文本而不是形状，则该选项有效。谢谢你的帮助

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，切换到notes页面视图，移动到所需的notes页面，然后使用ActiveWindow.view.Paste获得相同的效果。

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