- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]Word报表 图片排版问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121064)
-- 发布时间：2018/6/28 15:16:00
-- [求助]Word报表 图片排版问题
此主题相关图片如下：无标题q1.png
上图 自动生成的Word报表 调用的图片能自动置于文字低层 或上层吗？
-- 发布时间：2018/6/28 15:28:00
--
需要生成报表以后，使用vba处理设置图片，具体问题做个实例发上来测试。
-- 发布时间：2018/6/28 16:05:00
--
麻烦 看一下！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:word报表.zip |
-- 发布时间：2018/6/28 17:07:00
--
Dim tm As String = ProjectPath & "Attachments\\离职证明.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\离职证明.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.quit
Dim app As New MSWord.Application
try
Dim doc = app.Documents.Open(fl)
For Each shape As object In doc.InlineShapes
Dim temp = shape.ConvertToShape
temp.ZOrder(5) \'5 图片沉于文字 4 图片浮于文字
Next
app.visible = True
catch ex As exception
msgbox(ex.message)
app.quit
End try
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:word报表.zip |
-- 发布时间：2018/6/29 9:06:00
--
谢谢！