单词VBA将内联形状对象添加到表格单元格

Question

我正在从MS Access VBA创建一个Word文档 我想将内联形状对象添加到表格单元格：

我像这样创建 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

尝试先添加表，然后通过指定.AddPicture上的范围直接将Foto添加到该表中：

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)