Вставка обьекта Image на лист Excel средствами VB.NET

[AGGRESSOR]

Камрады помогите!

вставляю на лист Excel контрол Image:

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

Dim ExcelApp As New Excel.Application
Dim ExcelBook As Excel.Workbook = ExcelApp.Workbooks.Add
Dim ExcelWsheet As Excel.Worksheet = CType(ExcelBook.Worksheets(1), Excel.Worksheet)

ExcelBook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
DisplayAsIcon:=False, Left:=280, Top:=650, Width:=120, Height:=60).Select()


но когда дело доходит до:

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

ExcelBook.ActiveSheet.OLEObjects.Item(1).object.Picture=


не знаю что делать

в Excel все решается так

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

ActiveSheet.OLEObjects.Item(1).object.Picture=stdole.StdFunctions.LoadPicture("C:\pic.jpg")


фишка в том что в VB.NET в Namespace stdole нету StdFunctions

конструкция типа

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

ExcelBook.ActiveSheet.OLEObjects.Item(1).object.Picture=Image.FromFile("C:\pic.jpg")


привела к несовпадению типов

Помогите! Обьясните, как загрузить в обьект картинку (с харда, из памяти, из базы - пофигу откуда)?

[GSerg]

Поставь в VB ссылку на OLE Automation (stdole2.tlb).

[AGGRESSOR]

Жму Add Reference
... на вкладке COM нахожу: Component name - OLE Automation; Type - COM; Source - C:\windows\system32\stdole2.tlb
... выбираю - добавляю
... в References появляется stdole
... смотрю Properties
... Path - C:\WINDOWS\assembly\GAC\stdole\7.0.3300.0__b03f5f7f11d50a3a\stdole.dll
... открываю stdole в Object Browser
... класса StdFunctions НЕТУ !!!

[GSerg]

И правда нету...

А, ну да...
Помнится, приходилось получать HBitmap картинки и вызывать OleCreatePictureIndirect...

[AGGRESSOR]

GSerg помоги, научи, дай пример кода ... пжлста

В книжках про такое не пишут ... подозреваю что подобные знания передаются "из уст в уста" ...

[GSerg]

Подобные знания есть везде, особенно тут.

А, кстати, тебе не подойдёт ExcelBook.ActiveSheet.Pictures.Insert "c:\pic.jpg" ?

[AGGRESSOR]

GSerg ExcelBook.ActiveSheet.Pictures.Insert "c:\pic.jpg" - не подойдет
... т.к. вставляется во всю ширину - высоту и пользователь легко может изменить\удалить картинку ... если же картинка будет в контроле, то сначала надо включить "режим конструктора", а это далеко не каждый юзер умеет делать

... а без API ни как не обойтись ?

[GSerg]

Защита листа не спасёт отца русской демократии?

[AGGRESSOR]

на листе все остальное надо оставить открытым для редактирования ...
да и ресайзать картинки придется ... интересно будет ли размер зависеть от разрешения ?

[GSerg]

Защита листа "Только от пользователя (не от кода)" + "Защищать только внедрённые объекты" не спасёт отца русской демократии?

[AGGRESSOR]

Вообще это выход ... но хотелось бы контрол (и торг здесь не уместен!)

Другого варианта кроме как самому написать функцию LoadPicture нету?
Например - может можно преобразовать типы в конструкции:

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

ExcelBook.ActiveSheet.OLEObjects.Item(1).object.Picture=Image.FromFile("C:\pic.jpg")

так, чтобы не было несовпадения?

[GSerg]

Вредный чел.

Погляди тут. Там в начале эта функция. Остальное игнорируй, а то вдруг подумаешь, что оно надо для конвертирования...