Сохранить значение текстового поля в PowerPoint

Я пытаюсь создать обзорную игру в PowerPoint 2007. Мне бы хотелось иметь два текстовых поля, в которых в шоу человек, управляющий игрой, затем вводит название команды в двух текстовых полях. Затем он сохранит данные и затем на следующем слайде покажет названия команд на противоположных сторонах презентации. Я полагаю, что он будет принимать ввод из текстового поля, сохранять его в переменной и иметь метку с текстом этой метки, равным вводу текстового поля.

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" с двумя кнопками (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

это должно сделать это. Ps, если вы хотите получить значения автоматически в слайде, который отображает команды, вам нужно добавить этот код в него

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

ЕСЛИ ЭТО НЕ РАБОТАЕТ, я сделал синтаксическую ошибку, скажи мне, что это, и плохо исправлю это!

Другие вопросы по тегам