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上指定范围直接将 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)