Shapes.AddTextEffect-Methode (Word)

Artikel
04/07/2023

Fügt einem Zeichenbereich eine WordArt-Form hinzu. Gibt ein Shape-Objekt zurück, das die WordArt-Form darstellt, und fügt sie der CanvasShapes-Auflistung hinzu.

Syntax

Ausdruck. AddTextEffect( _PresetTextEffect_ , _Text_ , _FontName_ , _FontSize_ , _FontBold_ , _FontItalic_ , _Left_ , _Top_ )

Ausdruck: Erforderlich. Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
PresetTextEffect	Erforderlich	MsoPresetTextEffect	Ein voreingestellter Texteffekt. Die Werte der MsoPresetTextEffect -Konstanten entsprechen den Formaten im Dialogfeld WordArt-Katalog (von links nach rechts und von oben nach unten nummeriert) aufgeführt.
Text	Erforderlich	String	Der Text in der WordArt.
FontName	Erforderlich	String	Der Name der Schriftart, die in der WordArt verwendet wird.
FontSize	Erforderlich	Single	Die Größe der in der WordArt verwendeten Schrift (in Punkten).
FontBold	Erforderlich	MsoTriState	MsoTrue, wenn die im WordArt-Objekt verwendete Schriftart fett formatiert werden soll.
FontItalic	Erforderlich	MsoTriState	MsoTrue, wenn die im WordArt-Objekt verwendete Schriftart kursiv formatiert werden soll.
Left	Erforderlich	Single	Die in Punkt gemessene Position des linken Rands der WordArt-Form relativ zum linken Rand des Zeichenbereichs.
Top	Erforderlich	Single	Die in Punkt gemessene Position des oberen Rands der WordArt-Form relativ zum oberen Rand des Zeichenbereichs.

HinwBemerkungeneise

Wenn Sie einem Dokument WordArt hinzufügen, werden die Höhe und Breite der WordArt automatisch anhand der Höhe und Menge des angegebenen Texts festgelegt.

Beispiel

In diesem Beispiel wird einem neuen Dokument ein Zeichenbereich hinzugefügt und in den Zeichenbereich eine WordArt-Form mit dem Text "Hello, World" eingefügt.

Sub NewCanvasTextEffect() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 'Create a new document and add a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=100, Top:=100, Width:=150, _ 
 Height:=50) 
 
 'Add WordArt shape to the drawing canvas 
 shpCanvas.CanvasItems.AddTextEffect _ 
 PresetTextEffect:=msoTextEffect20, _ 
 Text:="Hello, World", FontName:="Tahoma", _ 
 FontSize:=15, FontBold:=msoTrue, _ 
 FontItalic:=msoFalse, _ 
 Left:=120, Top:=120 
End Sub

Siehe auch

Shapes Collection Object

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.

Share via