Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Symbole vergrößern

Symbole vergrößern
17.12.2005 09:15:32
Tom
Hallo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt - o.T.
17.12.2005 10:35:40
Matthias
-
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige