主题：[求助]Word报表 图片排版问题

此主题相关图片如下：无标题q1.png

需要生成报表以后，使用vba处理设置图片，具体问题做个实例发上来测试。

麻烦 看一下！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:word报表.zip

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

谢谢！