Font2.Fill-Eigenschaft (Office)

  • Artikel

Ruft die Formatierungseigenschaften für die Schriftart des angegebenen Texts ab. Schreibgeschützt.

Syntax

Ausdruck. Füllen

Ausdruck Ein Ausdruck, der ein Font2-Objekt zurückgibt.

Beispiel

Im folgenden Code wird davon ausgegangen, dass eine Form in Sheet1 eingefügt wurde. Mit dem Code wird Text in die Form eingefügt und die Vordergrundfarbe der Schrift in Fett und Rot geändert. Anschließend wird nach dem zweiten Wort ein Wagenrücklauf hinzugefügt, ein zweiter Absatz erstellt und der Absatz rechts ausgerichtet.

Sub TestShapeAttributes() 
 Dim shp As Excel.Shape 
 Dim rng As Office.TextRange2 
 Dim rngWord As Office.TextRange2 
 Dim rngRun As Office.TextRange2 
 Dim rngPara As Office.TextRange2 
 Dim fnt As Office.Font2 
 
 Set shp = ActiveSheet.Shapes(1) 
 Set rng = shp.TextFrame2.TextRange 
 rng.Text = "This is test text." 
 
 Set rngWord = rng.Words(2) 
 Set fnt = rngWord.Font 
 With fnt 
 .Fill.ForeColor.RGB = RGB(255, 0, 0) 
 .Bold = msoTrue 
 End With 
 
 Set rngRun = rng.Runs(3) 
 rngRun.InsertBefore vbCr 
 
 Set rngPara = rng.Paragraphs(2) 
 rngPara.ParagraphFormat.Alignment = msoAlignRight 
End Sub

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.