Bildgröße nach einfügen ändern
Loeffelmann
ich möchte ein beliebiges Bild in Excel (über den Einfügedialog) einfügen und dann die Größe auf eine bestimmte Breite festsetzen. Punkt 1 gelingt mir mit folgendem Makro:
Sub IstBildEinfügen()
Dim Bild As Picture
Dim b As String
b = Application.GetOpenFilename("Bild-Dateien(*.jpg;*.bmp;*.gif),*.jpg, *.bmp, *.gif")
Range("f5").Select
On Error GoTo fehler
If b = "FALSCH" Then
Range("f5").Clear
Else
Set Picture = ActiveSheet.Pictures.Insert(b)
Picture.ShapeRange.hight = 50
End If
fehler:
End Sub
Doch die Änderung der Größe will mir einfach nicht gelingen. Was mache ich falsch?
Gruß Christian
Anzeige