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

Posted

技术标签:

【中文标题】Word VBA 将 Inlineshape 对象添加到表格单元格【英文标题】:Word VBA Add Inlineshape Object to Table Cell 【发布时间】: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

但它不起作用

【问题讨论】:

【参考方案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)

【讨论】:

以上是关于Word VBA 将 Inlineshape 对象添加到表格单元格的主要内容,如果未能解决你的问题,请参考以下文章

word使用宏定义来统一设置图片大小

VBA Word 复制表

如何用VBA将excel中的数据转化成word文档

在 VBA 中将 Word 对象分配给 Variant 变量

如何用VBA宏程序将excel中的内容批量复制到word文档中去

利用VBA如何将批量图片导入WORD的指定表格格式里?