vba - PowerPoing VBA 中的 Shape.TextFrame 和 .TextRange 是什么？

Question

我正在寻找信息来帮助我更好地理解 PowerPoing VBA 中的“.TextFrame”和“.TextRange”对象。有人可以帮忙吗？我已经查看了 MSDN 上的内容，但一直对那里的文档感到失望。

Answer 1

形状是 PPT 幻灯片、母版、布局、笔记页面的基本构建块；他们身上的一切都是一个形状。

某些形状（例如线条）不能包含文本。那些可以包含文本的有一个 TextFrame。如果 Shape.TextFrame 包含文本，则可以使用 Shape.TextFrame.TextRange 访问（设置/读取）TextFrame 中所有文本的属性。其他方法也返回一个 .TextRange，它可能是 .TextFrame 中文本的某个子集。

简单的例子：

Sub DoSomethingUseless()

Dim oSh as Shape
Dim oSl as Slide

For Each oSl in ActivePresentation.Slides

For Each oSh in oSl.Shapes
   If oSh.HasTextFrame Then
      If oSh.TextFrame.HasText Then
         Debug.Print oSh.TextFrame.TextRange.Text
      End If
   End If
Next   ' Shape

Next   ' Slide

End Sub