Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Word-Art auf jedes Aribeitsblatt in Mappe

Word-Art auf jedes Aribeitsblatt in Mappe
17.03.2004 11:10:59
Abdi
Hallo Zusammen,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Word-Art auf jedes Aribeitsblatt in Mappe
17.03.2004 11:25:38
Panicman
Hallo Abdi,
versuchs mal so:

Sub Word_art()
For I = 1 To Worksheets.Count
Worksheets(I).Shapes.AddTextEffect(msoTextEffect2, _
"Intern", _
"Arial Black", _
36#, _
msoFalse, _
msoFalse, _
50#, _
50#).Select
Next
End Sub

Gruß
Holger
AW: Word-Art auf jedes Aribeitsblatt in Mappe
17.03.2004 11:31:37
Bert

Sub Word_Art()
Dim c As Long, wa As Shape
For c = 1 To Worksheets.Count
Set wa = Worksheets(c).Shapes.AddTextEffect(16, "Meldung", "Arial", 50, 0, 0, 50, 50)
Next
End Sub

Bert
Super. Funktioniert. Danke
17.03.2004 11:45:31
Abdi
Habe die Lösung von Panicman genommen.
Danke für Eure Hilfe.
Gruß Abdi
Anzeige
AW: Super. Funktioniert. Danke
17.03.2004 12:02:10
Bert
Panicman würde meine Lösung nehmen!
Bert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige