Камрады помогите!
вставляю на лист 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")
привела к несовпадению типов((
Помогите! Обьясните, как загрузить в обьект картинку (с харда, из памяти, из базы - пофигу откуда)?
Ответить
|