主题：[求助]Word报表中图片没有展开

老师好！

用图片替换模板中的内容，怎么没有正确显示图片？图片就看到一行的高度，图片上传不了~

Dim Filter As String = "标注 = true"
Dim cnt As Integer
cnt = DataTables("组织生活会").Compute("Count([标注])", Filter)

If cnt = 0 Then
    msgbox("请勾选要生成的行!")
Else
    Dim tm As String = ProjectPath & "Attachments\报表模板\组织生活\03组织生活会记录.docx" '指定模板文件
    Dim fileName As String = ProjectPath & "Reports\组织生活\03组织生活会记录.docx" '指定目标文件
    Dim wrt As New WordReport(Tables("组织生活会_table1"), tm, fileName) '定义一个WordReport
    Dim drs As List(Of DataRow)
    drs = DataTables("组织生活会").Select(Filter)
    For Each dr As DataRow In drs
        wrt.Replace("[abc]", _UserName)
        wrt.ReplaceWithImage("[会议主题图片]", ProjectPath & "Attachments\组织生活会\主题图片\" & dr("会议主题图片"), 370, 260)
        wrt.BuildOne(dr)
'        wrt.RecordsOnEachPage  =1
    Next
    wrt.Show() '显示报表
    ShowAppWindow("03组织生活会记录.docx", 1) '最大化显示此窗口
End If