在 PowerPoint 中保存文本字段的值

Question

我正在尝试在 PowerPoint 2007 中制作评论游戏。我希望能够有两个文本字段，在节目中，控制游戏的人将在两个文本字段中输入团队名称。然后它会保存数据，然后在下一张幻灯片上，在演示文稿的两侧显示团队名称。我想它会从文本字段中获取输入，将其保存到一个变量中，并有一个标签，该标签的文本等于文本字段的输入。

Answer 1

阅读本文之前

• “SlideX”= 存储您的值的幻灯片
• SlideO = AnySlideNumber

好的，首先您要制作 1 张隐藏的幻灯片。要在不打开此幻灯片的情况下更改幻灯片，您需要使用超链接，例如，使用带有超链接的图像按钮更改幻灯片，或者您可以制作一个开发人员按钮，使用 ActivePresentation.SlideShowWindow.View.GotoSlide (SlideO) 更改幻灯片

在输入团队名称的未隐藏的一张幻灯片中，制作两个标签，将对其进行编辑并将它们命名为“Team1”和“Team2”或类似的名称。好的，在这里双击其中任何一个，您将获得它的代码，只需忽略并粘贴此代码

Private Sub Save()
    ' Change X to The Slide that stores the numbers!
    SlideX.SaveValuesIntoText Team1.Caption Team2.Caption
End Sub

完成后，请先创建一个存储值的幻灯片，例如。您输入姓名的幻灯片（ps 我喜欢您的想法）制作两个名为“Team1Name”和“Team2Name”的文本框，带有 2 个按钮（1 = 保存，2 = Nextslide），一旦你完成了这也打开了代码并将其粘贴到

Public Function SaveValuesIntoText(Team1 As String, Team2 As String)
    Team1Name.Caption = Team1
    Team2Name.Caption = Team2
End Function

如果操作正确，您应该将值保存到 powerpoint 幻灯片中，现在您可以简单地检索它们

Private Sub RetrieveValues()
    Team1 = X.Team1Name.Caption
    Team2 = X.Team1Name.Caption
    Label1.Caption = Team1
    Label2.Caption = Team1
End Sub

应该这样做。附：如果您想在显示您需要将此代码添加到其中的团队的幻灯片中自动检索值

Public Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
    If Wn.View.CurrentShowPosition = 1 Then
        RetrieveValues
    End If
End Sub

如果这不起作用，我犯了一个语法错误，告诉我它是什么并且错误地纠正它！