此主题相关图片如下:2.png
此主题相关图片如下:1.png
麻烦老师帮忙看看以下代码 设置自动行高后图片就错位了
前面是正确的 越到后面图片错位越严重
'''...
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Reports\合同评审.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
for j as Integer =0 to dt.DataRows.Count -1
Dim Rg As MSExcel.Range = Ws.Cells( j+5 ,6)
Dim gd As Integer =rg.top
Dim tpk As New List(of String)
tpk = dt.DataRows( j ).Lines("产品图片")
dim k as Integer =tpk.Count
Rg.WrapText = True
Rg.EntireRow.AutoFit '自动调整行高
Dim p As Integer =0
if k >0 and Rg.RowHeight <80 then
ws.Rows(rg.Row).RowHeight = 80 * (k)
end if
For Each tp As String In tpk
ws.Shapes.AddPicture( "\\192.168.1.207\产品图片$\" & tp , Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,200, gd + p * 80 +5 , 50,50)
p =p+1
Next
next
[此贴子已经被作者于2020/7/15 10:37:58编辑过]