Formatieren
11.05.2006 15:16:23
Andre
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
Anzeige