Hallo! 
habe ein kleines Problem mit meinen eingefügten ImageControl!

Über einem Button in einer UserForm kann man ein Bild auswählen und dieses dann in die Tabelle einfügen.

Das problem ist aber, dass das Bild dann nicht verkleinert wird, sondern irgendwo ausgeschnitten wird. 

Wäre es irgendwie möglich, dass das Bild automatisch auf die Größe des ImageControl geändert wird??

Option Explicit

Sub Test()
    Dim varBild As Variant
    Dim objImg As Object
    varBild = Application.GetOpenFilename(Title:="Select Image To Open")
    If varBild = False Then Exit Sub
    Set objImg = Tabelle2.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
    DisplayAsIcon:=False, Left:=1, Top:=400, Width:=150, Height:=200)
        
    With objImg
        .Name = "Foto"
        .Object.Picture = LoadPicture(varBild)
        End With
        
End Sub

Ich hoffe ich hab mich hier jetzt verständlich ausgedrückt. Und bitte habt verständniss...ich bin leider das Opfer meines Chefs und hab mit VBA bis dato noch nicht wirklich viel zum tun gehabt. 

Danke im Vorraus

Mfg