Formatieren

Forumthread: Formatieren

Formatieren

11.05.2006 17:16:23

Andre

Kann mir hierbei jemand helfen?
Möchte jedes einzelne Shape suchen und den fetten Text formatieren zum nicht fetten Text.
Was ist hier Falsch?


Sub markieren()
Dim bild
Dim a As Variant
For Each bild In ActiveSheet.shapes
a = bild.Name
bild(a).Font.Bold = False
Next bild
End Sub

Mfg
Andre

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formatieren

11.05.2006 17:23:38

Hallo,
alles falsch.


Sub unfett()
Dim Bild As Shape
For Each Bild In Shapes
Bild.TextFrame.Characters.Font.Bold = False
Next
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)

AW: Formatieren

11.05.2006 18:28:27

Andre

Danke schön!!!