什麼是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