vba - PowerPoing VBA の Shape.TextFrame と .TextRange とは何ですか?

Question

PowerPoing VBA の「.TextFrame」および「.TextRange」オブジェクトをよりよく理解するのに役立つ情報を探しています。誰でも助けることができますか？私は MSDN の内容を確認しましたが、そこにあるドキュメントに常に失望しています。

Answer 1

シェイプは、PPT スライド、マスター、レイアウト、ノート ページの基本的な構成要素です。それらのすべてが形です。

一部の図形 (線など) にはテキストを含めることができません。テキストを含むことができるものには TextFrame があります。Shape.TextFrame にテキストが含まれている場合、Shape.TextFrame.TextRange を使用して、TextFrame 内のすべてのテキストのプロパティにアクセス (設定/読み取り) できます。他のメソッドも、.TextFrame 内のテキストのサブセットである可能性がある .TextRange を返します。

簡単な例:

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