如何从PowerPoint中的文本字段获取值到Excel中？

PowerPoint应用程序正在运行，该文本框我想要得到的值从上滑3

我已经试过这没有任何成功：

Dim PPApp As PowerPoint.Application 

Set PPApp = GetObject(, "PowerPoint.Application") 

Range("A20").Value = PPApp.Presentation.Slide3.txtMyTextField.Value

任何人都知道正确的方式做这个？（我也Excel文件添加到PowerPoint中的引用）

来源

2010-09-27 Noop

这是假设我有一个文本框ActiveX控件在我的幻灯片1.

Sub GetTextBoxText() 
    Dim ap As Presentation: Set ap = ActivePresentation 
    Dim tb As TextBox: Set tb = sl.Shapes(1).OLEFormat.Object 
    Debug.Print tb.Text 
End Sub

来源

2010-09-27 18:08:34

非常感谢！但是我可能一直不清楚我真正想做什么。这不是我想要文本的常规文本框，而是从开发人员选项卡访问的文本框。（文本框激活x控件）。它似乎不能被当作形状来处理？还是我错了？ – Noop 2010-09-28 06:46:42

@Noop：明白了。我已经更新了上面的代码。 – 2010-09-28 07:46:40

再次感谢！我会很快检查出来的。 – Noop 2010-09-28 11:45:09

如何从PowerPoint中的文本字段获取值到Excel中？

回答

相关问题