[VBA EXCEL] ImageCombo

dopolnjujem objavo....

prikazana koda nekako izpolnjuje moje želje, vendar so slike v Imagecombo majhne (clipi), kljub temu, da so v Sheet1 večjih dimenzij.
Ali obstaja kaka ideja kako bi dopolnil kodo, da bi mi Imagecombo prikazoval dejansko velikost slike (to vrjetno pomeni, da bi bil combo večjih dimenzij)?

Private Sub UserForm_Initialize()
Dim imgLst As New ImageList
Dim aObjName As Variant
Dim aText As Variant
Dim i As Long
aObjName = Sheet1.Range("B2:B4").Value
aText = Sheet1.Range("C2:C4").Value
For i = 1 To 3
imgLst.ListImages.Add _
Key:="img" & i, _
Picture:=Sheet1.OLEObjects(aObjName(i, 1)).Object.Picture
'You can use LoadPicture for setting the Picture property
Next
Set ImageCombo1.ImageList = imgLst
For i = 1 To 3
ImageCombo1.ComboItems.Add _
Index:=i, _
Text:=aText(i, 1), _
Image:="img" & i
Next
End Sub