Shapes.AddTextEffect (Word)

Fügt einem Zeichenbereich eine WordArt-Form hinzu.

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.

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


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

Arguments

Hier sind die benannte Argumente :

PresetTextEffect (Office.MsoPresetTextEffect) - Ein voreingestellter Texteffekt.

Text (String) - Der Text in der WordArt.

FontName (String) - Der Name der Schriftart, die in der WordArt verwendet wird.

FontSize (Single) - Die Größe der in der WordArt verwendeten Schrift (in Punkten).

FontBold (Office.MsoTriState) - MsoTrue, wenn die im WordArt-Objekt verwendete Schriftart fett formatiert werden soll.

FontItalic (Office.MsoTriState) - MsoTrue, wenn die im WordArt-Objekt verwendete Schriftart kursiv formatiert werden soll.

Left (Single) - Die in Punkt gemessene Position des linken Rands der WordArt-Form relativ zum linken Rand des Zeichenbereichs.

Top (Single) - Die in Punkt gemessene Position des oberen Rands der WordArt-Form relativ zum oberen Rand des Zeichenbereichs.

Optional arguments

Das folgendes Argument ist optional

Anchor - Range