CanvasShapes.AddTextEffect-Methode (Word)

Artikel
10/16/2024

Fügt einem Zeichenbereich eine WordArt-Form hinzu. Gibt ein Shape-Objekt zurück, das das WordArt-Objekt darstellt.

Syntax

Ausdruck. AddTextEffect (PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)

expression Erforderlich. Eine Variable, die ein CanvasShapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
PresetTextEffect	Erforderlich	Mso	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 , um die WordArt-Schriftart fett zu formatieren. msoFalse , um die in der WordArt verwendete Schriftart auf "normal" festzulegen.
FontItalic	Erforderlich	MsoTriState	msoTrue , um die WordArt-Schriftart kursiv zu machen. msoFalse , um die in der WordArt verwendete Schriftart auf "normal" festzulegen.
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.

Hinweise

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

CanvasShapes-Auflistungsobjekt

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.

Freigeben über