Symbole vergrößern
17.12.2005 09:15:32
Tom
in meinem Tabellenblatt befinden sich ca. 100 Grafiken. Nun möchte ich für alle Grafiken auf einmal die gleiche Größe anpassen.
Mit folgendem Code, werden alle Grafiken z.B. auf einmal gelöscht:
Sub Symbole_Loeschen()
Dim Bild As Shape
For Each Bild In ActiveSheet.Shapes()
Bild.Delete
Next Bild
Range("A1").Select
End Sub
Wie muß ich den Code umbauen, dass jede Grafik die Breite von 2 cm und die Höhe von 2 cm hat?
Mit dem Makrorekorder sieht das so aus (allerdings nur für eine bestimmte Graifk und nicht für alle):
Sub Makro1()
ActiveSheet.Shapes("Picture 7").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 57#
Selection.ShapeRange.Width = 57#
Selection.ShapeRange.Rotation = 3#
Range("G14").Select
End Sub
Danke mal vorab!
Tom