Mit dem folgenden Code füge ich ein Bild in die Tabelle ein:
Sub Bildrein()
With Sheets("Tabelle1")
.Range("B12").Select
.Pictures.Insert("C:\Users\winuser\Desktop\test.jpg").Select
.Pictures.ShapeRange.LockAspectRatio = msoTrue
.Pictures.ShapeRange.Height = 50
End With
End Sub
Ziel: Bild aus Pfad an bestimmer Stelle (Zelle) einfügen und die Höhe angeben ohne dabei das Verhältnis zu ändern.Das funktioniert auch. Aber geht das nicht auch ohne Select? Danke und Gruss, Henner