Текстовые поля во время презентаций PowerPoint

Question

Я работаю над презентацией PowerPoint, в которой мне нужно добавить информацию на экран во время самой презентации, то есть информацию, предоставленную участниками, присутствующими на презентации.

Поэтому я добавил текстовое поле на вкладке «Разработчик» и могу вводить данные во время презентации. Нет проблем.

Но могу ли я сохранить те данные, которые у меня есть, когда я нажимаю на новый слайд?

Когда я перехожу к следующему слайду, введенная мной информация исчезает. Есть ли способ сохранить его в слайдах, которые идут после?

Заранее спасибо.

Answer 1

Информация не исчезает как таковая; он все еще будет там, когда вы вернетесь к слайду, на котором вы изначально находились. Он просто не будет автоматически отображаться в текстовом поле ActiveX на других слайдах.

Событие Lost Focus текстового поля будет срабатывать при переходе от одного слайда к следующему, поэтому некоторый код в событии Lost Focus может просматривать каждый слайд в презентации, накапливать любой текст в любом элементе управления текстового поля, а затем делать текст в каждом из них. текстовое поле соответствует накопленный текст.

Это не идеально, но если вы хотите попробовать, это начало. Примените этот код к событию LostFocus каждого элемента управления. Чтобы получить дополнительную помощь, отправляйте вопросы в StackOverflow с тегами Powerpoint и VBA, а не здесь:

Private Sub TextBox1_LostFocus()

    Dim oSl As Slide
    Dim oSh As Shape
    Dim sText As String

    On Error Resume Next
    ' Accumulate text from all ActiveX text boxes
    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            If oSh.Type = msoOLEControlObject Then
                sText = sText & oSh.OLEFormat.Object.Text
            End If
        Next
    Next

    ' Apply the accumulated text
    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            If oSh.Type = msoOLEControlObject Then
                oSh.OLEFormat.Object.Text = sText
            End If
        Next
    Next

End Sub