将ActiveX Textbox值传输到textbox powerpoint文本框

Sub TransferValue()
    Dim ppt As Presentation
    Dim slide As Slide
    Dim textBox As Shape
    Dim activeXTextBox As Object
    
    ' 获取当前打开的演示文稿
    Set ppt = ActivePresentation
    
    ' 获取当前活动的幻灯片
    Set slide = ppt.Slides(ppt.SlideShowWindow.View.Slide.SlideIndex)
    
    ' 获取ActiveX Textbox对象
    Set activeXTextBox = slide.Shapes("ActiveX Textbox 1").OLEFormat.Object
    
    ' 获取PowerPoint文本框对象
    Set textBox = slide.Shapes("Text Box 1")
    
    ' 将ActiveX Textbox的值传输到PowerPoint文本框
    textBox.TextFrame.TextRange.Text = activeXTextBox.Text
End Sub