Word-Art auf jedes Aribeitsblatt in Mappe
17.03.2004 11:10:59
Abdi
Veruche per VBA ein Word-Art einzufügen.
Mit Hilfe des Herber-Archives habe ich es geschafft, das ich wenigsten auf eine Seite das Word-Art bekomme.
Nur hapert´s jetzt daran, das auf jede Seite zu bekommen. Kann mir da jemand Helfen?
Set shp = Worksheets("Deckblatt").Shapes.AddTextEffect( _
msoTextEffect2, _
"Intern", _
"Arial Black", _
36#, _
msoFalse, _
msoFalse, _
50#, _
50#)
...
damit schaff ich es auf "Deckblatt"...
aber
For Each Blatt In ActiveWorkbook.Sheets ...
wäre das ein richtiger Ansatz? Da mecker Excel ungemein :-)
Danke für eine Hilfe
Gruß Abdi