Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Word-Art-Element per VBA kopieren
Autor: Arno
Datum: 11.07.03 10:29
Hallo Leute, wer kann mir bei meinem Problem behilflich sein? Ich habe ein Word-Art Element über VBA meiner Excel - Mappe einbinden können. Wie kann ich erreichen das ich das Word - Art Element in Tabelle1 auf jedes einzelne Seite kopiert bekomme oder in die Kopf- und Fusszeile? Und kann man diesen Code noch optimieren? Für eure Antworten wäre ich echt dankbar. Gruß Arno Siehe Code: ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "Ihr Text", "Arial Black", _ 36#, msoFalse, msoFalse, 40.5, 180#).Select Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22 Selection.ShapeRange.Fill.Transparency = 0.51 Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoFalse Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 51# Selection.ShapeRange.Width = 156# Selection.ShapeRange.Rotation = 40# With Selection .Placement = xlFreeFloating .PrintObject = True End With

Word-Art-Element per VBA kopieren

97

Arno

11.07.03 10:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen