word报表中的图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → word报表中的图片

共有2657人关注过本帖树形打印复制链接主题：word报表中的图片

qinlao666

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：449 积分：3842 威望：0 精华：0 注册：2015/3/3 10:06:00

word报表中的图片 发帖心情

Post By：2016/11/29 13:35:00 [显示全部帖子]

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161129132950.png

如图word报表中引用了个图片列，预览效果如下图

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161129133229.png

请教老师，如何能让图片始终浮于文字上方呢？

qinlao666

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：449 积分：3842 威望：0 精华：0 注册：2015/3/3 10:06:00

Post By：2016/11/29 16:14:00 [显示全部帖子]

老师请问这段命名写在哪里？

qinlao666

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：449 积分：3842 威望：0 精华：0 注册：2015/3/3 10:06:00

Post By：2016/11/29 16:14:00 [显示全部帖子]

命令写在哪里

qinlao666

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：449 积分：3842 威望：0 精华：0 注册：2015/3/3 10:06:00

Post By：2016/11/29 17:11:00 [显示全部帖子]

Dim app As New MSWord.Application
Dim doc As object = app.Documents.Open("D:\管理项目1\Attachments\2015版销售合同.doc")
For i As Integer =1 To doc.InlineShapes.Count
doc.InlineShapes(i).ConvertToShape
Next
app.Visible = True

Dim tm As String = ProjectPath & "Attachments\2015版销售合同.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\2015版销售合同.doc" '指定目标文件
Dim wrt As New WordReport(Tables("合同主表"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表