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
|