Alle Bilder im Sheet auf Originalgröße setzen
28.02.2013 13:22:06
Gogs
ich habe viele Excel-Tabellen mit jeweils einigen Bildern drin.
Viele dieser Bilder wurden mal den Arbeitsblättern "gezogen" oder "gestaucht".
Jetzt sollen aber alle wieder auf die Originalgröße zurückgesetzt werden.
Um ein entsprechendes Makro zu erstellen, das ich dann mal auf alle Tabellen loslassen kann, habe ich mal klein angefangen ein Makro aufgezeichnet, in dem ich mal ein Bild markiere und seine Größe auf 100% (mit gesperrtem Seitenverhältnis) setze. Das sieht dann so aus:
Sub Makro1()
' Makro1 Makro
ActiveSheet.Shapes.Range(Array("Picture 203")).Select
Selection.ShapeRange.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
End Sub
Soweit so gut, das Problem ist nur: Wenn ich diese Routine ausführe, wird nur der Select ausgeführt, aber an der Größe ändert sich nichts! (zum Testen habe ich natürlich die Größe vorher manuell wieder auf einen anderen Wert gesetzt)
Was muss ich machen, damit sich auch die Größe ändert?
Mein aktueller Workaround ist, alle Bilder per
ActiveSheet.Pictures.Select
auszuwählen und dann wieder manuell "100%" in den Eigenschaften-Dialog einzutragen.
Aber das möchte ich eigtl. gerne automatisieren.
Gogs
Anzeige