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

Question

我正在尝试将用户在 ActiveX 文本框中键入的值传输到标准标签或 textbox/boxes 通过 powerpoint。

我想要的结果是他们将自己的名字放在 ActiveX 文本框的开头。然后在最后他们会在最后用他们的名字说恭喜

这适用于在幻灯片上放置静态文本，但我如何让它获取 ActiveX 文本框的值。

我意识到现在做噩梦是一件很简单的事情。

Sub tester()
With ActivePresentation.Slides(3).Shapes("Rectangle 5")
  .TextFrame.TextRange.text = "Your Text Here!"
End With
End Sub

谢谢

Answer 1

这样做就可以了：

Sub MoveText()
    Dim oShape As Shape
    Dim OLEText As String
    
    Set oShape = ActivePresentation.Slides(1).Shapes("TextBox1")
    OLEText = oShape.OLEFormat.Object.Text
    ActivePresentation.Slides(3).Shapes("Rectangle 5").TextFrame.TextRange.Text = OLEText
End Sub

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

Transferring ActiveX Textbox value to textbox powerpoint text boxes

powerpoint

vba