Сохранить значение текстового поля в 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
ЕСЛИ ЭТО НЕ РАБОТАЕТ, я сделал синтаксическую ошибку, скажи мне, что это, и плохо исправлю это!