如何从PowerPoint中的文本字段获取值到Excel中?
问题描述:
这怎么办?如何从PowerPoint中的文本字段获取值到Excel中?
PowerPoint应用程序正在运行,该文本框我想要得到的值从上滑3
我已经试过这没有任何成功:
Dim PPApp As PowerPoint.Application
Set PPApp = GetObject(, "PowerPoint.Application")
Range("A20").Value = PPApp.Presentation.Slide3.txtMyTextField.Value
任何人都知道正确的方式做这个? (我也Excel文件添加到PowerPoint中的引用)
答
这是假设我有一个文本框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
非常感谢!但是我可能一直不清楚我真正想做什么。这不是我想要文本的常规文本框,而是从开发人员选项卡访问的文本框。 (文本框激活x控件)。它似乎不能被当作形状来处理?还是我错了? – Noop 2010-09-28 06:46:42
@Noop:明白了。我已经更新了上面的代码。 – 2010-09-28 07:46:40
再次感谢!我会很快检查出来的。 – Noop 2010-09-28 11:45:09