如何在powerpoint中的文本框/对象中保持运行得分

Question

我的powerpoint就像一个测验，一张幻灯片有一个问题和4个答案（带有文字的按钮，而不是数字）可以点击。单击答案时，会将其链接到另一张幻灯片，该幻灯片说明答案是正确/错误，然后从分数中添加/减去分数。

目前我所做的是一个简单的宏，每个按钮都链接到，当点击任何4个答案按钮时，它将转到某个幻灯片并显示一个弹出框，其中包含当前分数。

我想要做的是有一个文本框或一些在整个演示文稿中保存得分的对象，理想情况下，如果可能的话，当ppt关闭或打开时分数会重置，但运行得分是最重要的方面我我试图打击。

这可能是我要问的吗？如果有任何有用的细节，请告诉我

Answer 1

不要在演示文稿关闭时重置乐谱，而是在启动时执行此操作。例如，您可以在第一张幻灯片上放置“开始测验”按钮，让它重置分数，然后移动到下一张幻灯片。

关于存储乐谱的位置，有很多方法可以实现。一种方法是在最后一张幻灯片上放置一个矩形或文本框，并将分数存储为文本。确保将矩形发送回来，使其成为幻灯片上的第一个形状，或更改下方的形状（1）以指示形状的实际z顺序位置。

Function SetScore(lScore as Long)

Dim lLastSlide as Long

lLastSlide = ActivePresentation.Slides.Count

With ActivePresentation.Slides(lLastSlide).Shapes(1).TextFrame.TextRange
  .Text = Cstr(lScore)
End With

End Function

配套的GetScore功能应该很容易实现，类似于上面的内容。