Passing image as variable.

[jblevins]

Trying to pass an image as a variable to API. Have tried "OleObjects", "Shapes" and "Controls".

Sub AddFormIcon(TitlebarCaption, WBName, SHName, img)  ' Pass "img" from here to

Dim hwnd As Long
Dim lngRet As Long
Dim hIcon As Long
   
    hIcon = Workbooks(WBName).Worksheets(SHName).img.Picture.Handle  ' here
   
    hwnd = FindWindow(vbNullString, TitlebarCaption)   ' Form caption, not name; for form use frmName.Caption.
    lngRet = SendMessage(hwnd, WM_SETICON, ICON_SMALL, ByVal hIcon)
    lngRet = SendMessage(hwnd, WM_SETICON, ICON_BIG, ByVal hIcon)
   
    lngRet = DrawMenuBar(hwnd)
End Sub

 

[mikerickson]

Have you tried passing the image as a Shape object?

 

[jblevins]

Tried passing as "Shapes", maybe I don't understand what you mean by "Shape object"?

 

[Domenic]

Try...

hIcon = img.Picture.Handle

Hope this helps!

 

[jblevins]

Tried passing "Image1" to

hIcon = img.Picture.Handle

but it failed.

I have only got this to work by passing this

ActiveWorkbook.Sheets("Sheet1").Image1.Picture.Handle

to

hIcon = img

and it worked which means I am actually passing the handle.

 

[Domenic]

When calling AddFormIcon, you should be passing your image like this...

Call AddFormIcon("MyTitlebarCaption", "MyWorkbookName", "MySheetName", ActiveWorkbook.Sheets("Sheet1").Image1)

Or, if you prefer, without the Call keyword...

AddFormIcon "MyTitlebarCaption", "MyWorkbookName", "MySheetName", ActiveWorkbook.Sheets("Sheet1").Image1

Then you can retrive its handle like this...

hIcon = img.Picture.Handle

Does this help?

 

[jblevins]

Thanks guys for the help.

 

[Domenic]

You're very welcome, glad we could help, cheers!