LoadPicture Function or Sub not Defined Error 1

[mo2783]

Hi

i have the following code which will insert a graph on an image box on a form in Excel 2003.

Public Sub UserFormChart()
    fname = ThisWorkbook.Path & "\ Ch.gif"
    Set ch = Sheets("Data").ChartObjects(1).Chart
    ch.Export fname, "Gif"
    UserForm1.Image1.Picture = LoadPicture(fname)
    Kill fname
    UserForm1.Show
End Sub

I am getting the follwoing error "Sub or Function not defined" on the "LoadPicture(fname)" when compiling.

Do i need to make a reference to a DLL if so which one? I take it the loadPicture is a vba function correct me if i am wrong.

Any help would be much appreciated.

Thanks

Mo

 

[PHV]

You must reference the OLE Automation library.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[mo2783]

Cheers PHV

It works that works.

 

[Hap007]

Hi PHV,

Here is a Star

Hap...


Access Developer

http://www.fcs-software.com/fcsaccessdev.html

Access based Accounting Solutions - with free source code
Access Consultants forum

http://www.tek-tips.com/threadminder.cfm?pid=1121