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

【问题标题】：Word VBA Add Inlineshape Object to Table CellWord VBA 将 Inlineshape 对象添加到表格单元格
【发布时间】：2018-08-29 11:13:28
【问题描述】：

我正在从 MS Access VBA 创建 Word 文档我想在表格单元格中添加一个 Inlineshape 对象：

我这样创建照片对象：

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

但它不起作用

【问题讨论】：

标签： vba ms-access ms-word

【解决方案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)

【讨论】：