Word VBA 将 Inlineshape 对象添加到表格单元格

Question

我正在从 MS Access VBA 创建一个 Word 文档我想将一个 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

尝试先添加表格，然后通过在.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)