Microsoft Office Tutorials and References
In Depth Information
7.6 WordArt
Hinweis
In den Versionen vor Excel 2007 lassen sich die Eigenschaften Color und
Size des Font -Objekts (zur Darstellung der laufenden Nummer in der Form)
nicht einstellen.
7.6
WordArt
Mit WordArt können Sie dekorative Texteffekte erzeugen, z. B. schattier-
ten oder gespiegelten Text. Mithilfe eines VBA-Programms wird nachfol-
gend eine Übersicht über die insgesamt 30 verschiedenen Effektarten
erzeugt. Dazu wird die Methode AddTextEffect() verwendet. Ergebnis
ist wiederum ein Objekt der Klasse Shape .
Texteffekte
Sub AlleWordArt()
Dim sh As Shape
Dim i As Integer, lf As Integer, tp As Integer
' Tabellenblatt auswählen
ThisWorkbook.Worksheets("Tabelle5").Activate
' Kein Gitternetz
ActiveWindow.DisplayGridlines = False
' Leeren
For i = ActiveSheet.Shapes().Count To 1 Step -1
ActiveSheet.Shapes(i).Delete
Next i
' Startwerte
lf=5
tp=5
' Alle verschiedenen WordArt-Voreinstellungen
Fori=0To29
Set sh = ActiveSheet.Shapes().AddTextEffect( _
i, i, "Arial", 48, False, False, lf, tp)
sh.TextFrame.Characters.Font.Color = _
RGB(255, 0, 0)
' Nächste Position
lf = lf + 70
IfiMod6=5Then
Search JabSto ::




Custom Search