Hallo Daniel,
Hast Du den folgenden Code mit kopiert?
Falls nicht bitte unten anfügen:
Sub BildVergrössern()
Dim Faktor As Double
With ActiveSheet.Shapes(Application.Caller)
'23.6734694 ist der Faktor, der erforderlich ist das Bild von 196x147 aus 4.640 x 3.480 zu vergrößern
Faktor = IIf(.Width > 200, 1 / 23.6734694, 23.6734694)
.ScaleWidth Faktor, msoFalse, msoScaleFromTopLeft
.ScaleHeight Faktor, msoFalse, msoScaleFromTopLeft
End With
End Sub
Viele Grüße
Kai
|