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

BTW，一部出色的VBA书籍，是您正在做的事情，是David Markovitz的this article。他在这本书的支持网站上还提供了许多免费代码和示例。

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

1 个答案: