AddTextEffect - Wasserzeichen

10/12/2007 - 15:28 von Klaus Trapp | Report spam
Hallo,

wo kann man den mehr über AddTextEffect erfahren,
genauer: was machen die einzelnen MsoPresetTextEffect-
Konstanten msoTextEffect1 - 30.

Mir geht es um die automatischen Einfügung eines
Wasserzeichens. Ich habe ich mir das mal per Macro-
Recoder angesehen und bin in diesem Zusammenhang
auf folgende Zeile gestossen:

Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject1, _
"Korrekturexemplar", "DIN-Light", 1, False, False, 0, 0).Select

Danach sollte PowerPlusWaterMarkObejct1 eine solche o.a.
Konstante sein; ist es aber nicht und im übrigen kann
ich nirgends dazu etwas finden. Beim erneuten ausführen des
aufgezeichnete Makros wir mir diese 'Konstante' auch als nicht
definiert gemeldet.


Übringes soll das alles unter Wd2003 laufen.

Grüße aus Köln am Rhein
Klaus

www.trappdata.de
 

Lesen sie die antworten

#1 Helmut Weber
10/12/2007 - 16:52 | Warnen spam
Hallo Klaus,

der Makro-Rekorder zeichnet was auf,
was es gar nicht gibt, oder was es mal gegeben hat
und jetzt nicht mehr gibt (2002 und 2003).

selection.HeaderFooter.Shapes.AddTextEffect(msoTextEffect1, _
"ASAP", "Times New Roman", 1, False, False, 0, 0).Select

Und einfach mal die mso-Konstanten durchprobieren.


Gruß

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Ähnliche fragen