Vba 在PowerPoint中保存文本字段的值

我想在PowerPoint 2007中制作一个复习游戏。我希望能够有两个文本字段，在这两个文本字段中，控制游戏的人将在两个文本字段中输入球队名称。然后，它将保存数据，然后在下一张幻灯片上，在演示文稿的两侧显示团队名称。我可以想象，它会从文本字段中获取输入，将其保存到一个变量中，并具有一个标签，该标签的文本与文本字段的输入相等。

在阅读本文之前

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

好的，首先要制作一张隐藏的幻灯片。要在不打开此幻灯片的情况下更改幻灯片，您需要使用超链接，例如，使用带有超链接的图像按钮更改幻灯片，或者您可以使用

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

完成后，点击头部并创建存储值的幻灯片，例如，您输入姓名的幻灯片（注意，我喜欢您的想法）制作两个名为“Team1Name”和“Team2Name”的文本框，其中有两个按钮（1=保存，2=下一个幻灯片），一旦完成，还可以打开该代码并将其粘贴

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

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