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)