PowerPoint 프레젠테이션 중 텍스트 상자

저는 프레젠테이션을 진행하는 동안 화면에 정보를 추가해야하는 PowerPoint 프레젠테이션에서 작업하고 있습니다. 즉, 프레젠테이션에 참석 한 사람들이 제공 한 정보입니다.

따라서 개발자 탭에서 텍스트 상자를 추가했으며 프레젠테이션 중에 데이터를 입력 할 수있었습니다. 문제 없어.

그러나 새 슬라이드를 클릭 할 때 입력 한 데이터를 유지할 수 있습니까?

다음 슬라이드로 넘어 가면 입력 한 정보가 사라집니다. 뒤따라 오는 슬라이드에 그것을 보관할 수있는 방법이 있습니까?

미리 감사드립니다.

정보가 사라지지 않습니다. 원래 입력 한 슬라이드로 돌아갈 때도 계속있을 것입니다. 다른 슬라이드의 ActiveX 텍스트 상자에는 자동으로 나타나지 않습니다.

텍스트 상자의 Lost Focus 이벤트는 한 슬라이드에서 다음 슬라이드로 이동할 때 발생하므로 Lost Focus 이벤트의 일부 코드는 프레젠테이션의 각 슬라이드를보고 텍스트 상자 컨트롤에 텍스트를 누적시킨 다음 각 텍스트를 텍스트로 만듭니다 텍스트 상자가 누적 된 텍스트와 일치합니다.

이것은 완벽하지는 않지만 원하는 경우 시작하십시오. 이 코드를 각 컨트롤의 LostFocus 이벤트에 적용하십시오. 더 많은 도움을 받으려면 여기보다는 Powerpoint 및 VBA 태그를 사용하여 StackOverflow에 질문을 게시하십시오.

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