Autoform suchen/ersetzen

30/04/2008 - 09:58 von Martin Zürcher | Report spam
Hallo

Folgende Problemstellung stellt sich mir unter Word 2003.

Ich habe in einem Dokument zig Pfeile (Autoform) platziert. Nun möchte ich
diesen Pfeilen einen andere Farbe zuweisen, kann ich diese direkt mit
suchen/ersetzen "ansprechen" oder muss ich dies andere bewerkstelligen?

Besten Dank für die Hinweise.

Gruss Martin
 

Lesen sie die antworten

#1 Lisa Courte
30/04/2008 - 11:09 | Warnen spam
Sub Pfeil_fàrben()

Dim oShape As Shape
Set myDocument = ActiveDocument
For Each oShape In myDocument.Shapes
'hier wird Pfeiltyp nach rechts gesucht
If oShape.AutoShapeType = msoShapeRightArrow Then
oShape.Select
'hier wird der Pfeil rot eingefàrbt
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
Next
End Sub

hier wird ein Pfeil nach rechts gesucht u. eingefàrbt - das müsstest Du
anpassen

Grüße Lisa
"Martin Zürcher" schrieb im Newsbeitrag
news:481826c1$
Hallo

Folgende Problemstellung stellt sich mir unter Word 2003.

Ich habe in einem Dokument zig Pfeile (Autoform) platziert. Nun möchte ich
diesen Pfeilen einen andere Farbe zuweisen, kann ich diese direkt mit
suchen/ersetzen "ansprechen" oder muss ich dies andere bewerkstelligen?

Besten Dank für die Hinweise.

Gruss Martin

Ähnliche fragen