Нужна помощь по вставке изображения путем VBA ACCESS в файл EXCEL

[AlVBA]

В файле Excel создан элемент управления Image с именем "Image1". В VBA ACCESS 2002-2003 пытаюсь вставить картинку:

Dim xlApp As Object
Dim xsS As Object

Set xlApp = New Excel.Application
xlApp.Visible = True
xlApp.Workbooks.Open ("MyFile.xls")
Set xsS = xlApp.ActiveWorkbook.Sheets("List1")

xsS.Image1.Picture = LoadPicture("MyPic.jpg")
........

Последний оператор выдает ошибку
[ATTACH]887[/ATTACH]

Не могу понять почему. Заранее Спасибо!

[Teslenko_EA]

Здравствуйте AlVBA.
Избавиться от этой проблемы (и подобных в будущем) можно указав полный путь к файлу:

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

...
xlApp.Workbooks.Open ("C:\MyFile.xls")
...
xsS.Image1.Picture = LoadPicture("C:\MyPic.jpg")

Евгений.

[AlVBA]

Это пробовал. Не получается.

[Naeel Maqsudov]

Это из-за конфликта имен
D Access, в отличие от Excel, два метода LoadPicture
Access.LoadPicture
и
StdFunctions.LoadPicture
Вам нужен второй, а вызывается первый. В результате получается значение такого типа, которое не присваивается свойству Picture.
Выход: пишите названием функции с явным квалификатором, т.е.
StdFunctions.LoadPicture