Bild vergrößern
18.07.2017 15:40:02
Uli
ich habe viele Bilder, die ich vergrößern möchte. Dazu habe ich ein Makro hier aus dem Forum kopiert. Dieses Makro funktioniert bei allen Formen, die ich direkt mit Excel einfüge, egal ob Diagramme oder was auch immer.
Aber mit Bildern aus dem Internet funktioniert dieses Makro nicht, z.B. wenn ich ein Logo einer Firma habe.
Wie bekomme ich es trotzdem größer?
Mein Makro lautet:
Sub GrossKlein()
Dim objShp As Shape
Dim f As Single, a As Variant
f = 2 'Vergößerungsfaktor
Set objShp = ActiveSheet.Shapes(Application.Caller)
If objShp.AlternativeText = "" Then
With objShp
.AlternativeText = .Width & ";" & .Height
.ScaleWidth f, msoFalse
.ScaleHeight f, msoFalse
End With
Else
With objShp
a = Split(.AlternativeText, ";")
.Width = a(0)
.Height = a(1)
.AlternativeText = ""
End With
End If
Set objShp = Nothing
End Sub