Grafik im Vordergrund
02.03.2022 10:28:22
Blaupolanski
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
Besten Dank vorab!
Anzeige