如何将单击的形状从一张幻灯片复制并粘贴到另一张幻灯片

Question

我是PowerPoint中VBA的新手，我正在尝试为我的班级开发一个交互式程序，在该程序中，一个带有气泡形状的文本框在屏幕上浮动，如果他们注意到它包含某个字形，则必须单击它。 我希望将单击的文本框复制到另一张幻灯片上，以便我可以评估孩子是否成功或仅单击了他们看到的任何内容。

我从其他站点整理了这段代码：

Sub copyobject()
With ActivePresentation
Set myshape1 = ActivePresentation.Slides(2).Shapes(group5)

myshape1.ActionSettings(ppMouseClick).Action = myshape1.Copy

.Slides(3).myshape1.Paste
End With

End Sub

它似乎没有起作用。 有人可以帮我吗？

我收到的错误消息是“编译错误：未找到方法或数据成员”，突出显示了.myshape1。

如果有人可以给我完整的代码或者更正我所创建的内容，我将不胜感激。

非常感谢

Answer 1

由于对象的名称是“ group5”，因此我假设它是一个组。 但是您不能将操作设置应用于组，而只能应用于单个对象。 这适用于单个形状：

Sub copyobject()
  With ActivePresentation
    Set myshape1 = .Slides(2).Shapes("Rectangle 1")
    myshape1.ActionSettings(ppMouseClick).Action = myshape1.Copy
    .Slides(3).Shapes.Paste
  End With
End Sub

顺便说一句，VBA出色的一本关于您正在做什么的书是David Markovitz的Powerful PowerPoint for Educators 。 他的书籍支持网站还提供了许多免费代码和示例。