ich habe eine Vergrößerungsfunktion für Grafiken gesucht und gefunden unter folgendem Makro:
Sub Zoom()
'Zoom Makro: Vergrößert ein vorhandenes Bild
Dim Faktor As Double
With ActiveSheet.Shapes(Application.Caller)
Faktor = IIf(.Width > 50, 1 / 2, 2)
.ScaleWidth Faktor, msoFalse, msoScaleFromTopLeft
.ScaleHeight Faktor, msoFalse, msoScaleFromTopLeft
End With
End Sub
Da ich viele Grafiken untereinander habe, wäre es sehr geschickt wenn man den Befehl "angeklickte Grafik zuerst in den Vordergrund stellen" in das Makro reinbasteln könnte, da die Vergrößerungen sonst teilweise verdeckt sind. Ich habe mit dem Makrorecorder probiert, bin leider zu keinem brauchbaren Ergebnis gekommen. Hat mir jemand evtl. einen Hinweis?Besten Dank vorab!