Что нового

Вставка изображения в Excel

udaff2011

Новичок
Сообщения
4
Репутация
0
Мне функция из библиотеки _ExcelCOM_UDF.AU3 выдает ошибку: объекта не существует. :shok:

Код:
Local $addsheet = _ExcelSheetAddNew($oExcel, "New Sheet Example")
Local $pict_insert = _ExcelPictureInsert($addsheet, @DesktopDir&"\QA3.jpg", 10, 10, 18, 18, True, True)
If $pict_insert <> @error Then
_FileWriteLog($Excellog,"INFO"&""&">>"&"Excel Add Image Function>>"&"Image has been added to the Sheet successfully")
Else
_FileWriteLog($Excellog,"ERROR"&""&">>"&"Excel Add Image Function>>"&"Function unable to add a Image to the workbook and the occured error is "& @error)
EndIf
;End of add sheet Function
Sleep(5000)
_ExcelBookClose($oExcel)
Sleep(2000)
 

axlwor

Скриптер
Сообщения
657
Репутация
147
а у меня не выдает
Код:
2011-05-31 19:37:43 : INFO>>Excel Add Image Function>>Image has been added to the Sheet successfully
хотя картинке в excel я не наблюдаю

ну да...
Код:
Local $oExcel = _ExcelBookNew(1)
Local $addsheet = _ExcelSheetAddNew($oExcel, "New Sheet Example")
Local $pict_insert = _ExcelPictureInsert($oExcel, @ScriptDir&"\QA3.jpg", 10, 10, 30, 40, True, True)
If @error <> 1 Then
_FileWriteLog($Excellog,"INFO"&""&">>"&"Excel Add Image Function>>"&"Image has been added to the Sheet successfully "& @error)
Else
_FileWriteLog($Excellog,"ERROR"&""&">>"&"Excel Add Image Function>>"&"Function unable to add a Image to the workbook and the occured error is "& @error)
EndIf
_ExcelBookSaveAs($oExcel, @ScriptDir & "\temp1.xls", "xls", 0, 1)
_ExcelBookClose($oExcel)

так работает
 
Автор
U

udaff2011

Новичок
Сообщения
4
Репутация
0
Строка
Код:
$oExcel.ActiveSheet.Shapes.AddPicture($sFilePath, $fLinkToFile, $fSaveWithDoc, $iLeft, $iTop, $iWidth, $iHeight).Select


выдает ошибку :laugh:

Error: The request action with this object has failed

Узнал, что VBA для 2007(6,5,1040) объекта Worksheet нет (или не стало) коллекции Pictures, т.е. для вставки нужно пользоваться ws.Shapes

А как пользоваться, не знаю :( Перепробовал менять синтаксис , моск выносит слегка ..

Можно-ли как-то написать строку вставки изображения без исрользования библиотеки?
 

axlwor

Скриптер
Сообщения
657
Репутация
147
Проверил win2k+office2k3, win7+office2k7 - работает мой код без ошибок
ps. без использования библиотеки
Код:
Local $oExcel = ObjCreate("Excel.Application")
$oExcel.ActiveSheet.Shapes.AddPicture(@ScriptDir&"\QA3.jpg", true, true, 10, 10, 20, 20).Select
 
Верх