Проблема с LoadPicture

[huares]

День добрый, что нужно в References подключить, чтобы Excel понимал и выполнял Set Image = LoadPicture(...) ?
Пока пишет, что не понимает такую функцию
Спасибо.

[Viper]

По идее ничего подключать не надо, все уже подключено по умолчанию, посему показывай как используешь и на что и какими буквами ругается VBA.

[huares]

Контрол типа Image:

Private Sub Image1_Click()
Image1.Picture = LoadPicture("c:\1.jpg")
End Sub

Compile error: Sub or Function not defined

[anvg]

huares
Проверь в Tools/References подключена ли библиотека OLE Automation

[bi-lya]

Код: Выделить всё

  With Image1
    .Picture = stdole.StdFunctions.LoadPicture("c:\1.jpg")
    .PictureSizeMode = fmPictureSizeModeZoom
  End With


[huares]

Спасибо всем большое, сначала действительно нужно подключить
в Referencese OLE Automation !!!

А потом пользоваться stdole
Еще раз спасибо!