Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Symbole vergrößern

Forumthread: Symbole vergrößern

Symbole vergrößern
17.12.2005 09:23:09
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
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Symbole vergrößern
17.12.2005 10:35:16
Matthias
Hallo Tom,
ungetestet:

Sub Symbole_Ändern()
Dim Bild As Shape
For Each Bild In ActiveSheet.Shapes()
With Bild.ShapeRange
.Height = 57#
.Width = 57#
End With
Next Bild
Range("A1").Select
End Sub

Gruß Matthias
AW: Symbole vergrößern
17.12.2005 12:33:58
Tom
Hi Matthias,
funktioniert leider nicht - dies wird als Fehler angezeigt: With Bild.ShapeRange
Vielleicht hast Du noch ne Verbesserung ..
Danke vorab
TOM
Anzeige
AW: Symbole vergrößern
17.12.2005 17:23:41
Peter
Servus,
ja leider kommt man hier ohne eine Select nicht aus :-(.
Versuchs so:
Sub Symbole_Ändern()
Dim Bild As Shape
For Each Bild In ActiveSheet.Shapes()
Bild.Select
With Selection.ShapeRange
.Height = 57#
.Width = 57#
End With
Next Bild
Range("A1").Select
End Sub

MfG Peter
Anzeige
AW: Symbole vergrößern
17.12.2005 22:00:34
Nepumuk
Hallo Peter,
wie kommst du darauf, dass das nur mit Select geht?
Sub Symbole_Ändern()
    Dim Bild As Shape
    For Each Bild In ActiveSheet.Shapes()
        With Bild.DrawingObject.ShapeRange
            .Height = 57#
            .Width = 57#
        End With
    Next Bild
End Sub

Gruß
Nepumuk

Anzeige
weil mir deine Weißheit fehlt ;-) o.w.t.
17.12.2005 22:33:47
Peter
MfG Peter
Vielen Dank. Mir wurde prima geholfen! Gruß Tom
18.12.2005 18:04:35
Tom
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige