Anwenden Schriftformatierung zu Powerpoint Text Programatically

Question

Ich versuche, VBA verwenden Sie einen Text in eine Powerpoint einfügen TextRange, ich so etwas wie folgt verwenden:

ActiveWindow.Selection.SlideRange.Shapes("rec1").TextFrame.TextRange.Text = "Hi" 

Allerdings kann ich nicht herausfinden, wie fett anzuwenden , kursiv und programmatisch unterstreichen (ich sehe keine .RichText-Eigenschaft oder etwas Ähnliches).

Was ich habe, ist ein einfacher HTML-Text mit fettem, kursivem und unterstrichenem Text, den ich konvertieren möchte.

Weiß jemand, wie man das macht?

Answer 1

Diese leicht mit der TextRange ‚s Characters, erreicht wird Words, Sentences, Runs und Paragraphs Objekte und es ist dann Font Objekt Fett, Unterstrichen und Kursiv gesetzt (unter anderen Eigenschaften). Zum Beispiel:

Sub setTextDetails() 
    Dim tr As TextRange 
    Set tr = ActiveWindow.Selection.SlideRange.Shapes(1).TextFrame.TextRange 
     With tr 
      .Text = "Hi There Buddy!" 
      .Words(1).Font.Bold = msoTrue 
      .Runs(1).Font.Italic = msoTrue 
      .Paragraphs(1).Font.Underline = msoTrue 
     End With 
End Sub 

Answer 2

Versuchen Sie, MSDN's documentation auf der TextRange object betrachten. Es enthält Beispiele zum Zugreifen auf die Font-Eigenschaften des TextRange-Objekts.

EDIT: Sie können Dinge zugreifen wie Fett- und Kursivschrift programmatisch auf diese Weise:

TextRange.Font.Bold = msoTrue 

EDIT EDIT: Es gibt mehrere Methoden, mit denen Sie nur bestimmtem Text in einem Textbereich auswählen können. Siehe folgende:

• Characters Method
• Lines Method
• Paragraphs Method
• Words Method

Nach der sames von this link, können Sie einen Teil des Textes wählen Sie eine dieser Methoden verwenden und Legen Sie die Schriftart programmgesteuert fest. Zum Beispiel:

Application.ActiveDocument.Pages(1).Shapes(2) _ 
.TextFrame.TextRange.Words(Start:=2, Length:=3) _ 
.Font.Bold = True 

Dieses Beispiel stammt aus dem Link Words Method.

Answer 3

Zusätzlich zu der obigen Antwort sollten Sie versuchen, die Objekte zu benennen, die Sie ändern werden, da die Auswahl von ihnen mitten in einer Präsentation PowerPoint seltsam wirken lassen könnte. Erstellen Sie ein neues TextRange-Objekt und legen Sie es wie folgt fest.

dim mytextrange As TextRange 
Set mytextrange = ActiveDocument.Pages(1).Shapes(2).TextFrame.TextRange 
mytextrange.Words...