Word VBA Добавление объекта Inlineshape в ячейку таблицы

Question

Я создаю документ Word из MS Access VBA Я хочу добавить объект Inlineshape в ячейку таблицы:

Я создаю объект Foto следующим образом:

Dim Foto As Inlineshape
Set Foto = WordObj.InlineShapes.AddPicture(FileName:="C:\Test.jpg")

затем я создаю свою таблицу, чтобы вставить ее.

Set tblNew = WordObj.Tables.Add(Range:=myRange, NumRows:=2, NumColumns:=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitWindow)

Как добавить объект Foto в ячейку таблицы? Я пробовал что-то вроде этого

tblNew.Cell(1, 1).Range = Foto

но это не работает

Answer 1

Попробуйте сначала добавить таблицу, а затем непосредственно добавить Foto в эту таблицу, указав диапазон .AddPicture:

Set tblNew = WordObj.Tables.Add(Range:=myRange, NumRows:=2, NumColumns:=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitWindow)
Dim Foto As Inlineshape
Set Foto = WordObj.InlineShapes.AddPicture(FileName:="C:\Test.jpg", Range:=tblNew.Cell(1, 1).Range)