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

此主题相关图片如下：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

[此贴子已经被作者于2020/7/15 10:37:58编辑过]

先针对整个文档全部调整完行高，再添加图片

谢谢老师按照您说的我把调整高度和图片分开了还是会出现错位

此主题相关图片如下：3.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+7 ,6)

Dim gd As Decimal =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 j as Integer =0 to dt.DataRows.Count -1

Dim Rg As MSExcel.Range = Ws.Cells( j+7 ,6)

Dim gd As Decimal =rg.top

Dim tpk As New List(of String)

tpk = dt.DataRows( j ).Lines("产品图片")

dim k as Integer =tpk.Count

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 , 50,50)

p =p+1

[此贴子已经被作者于2020/7/15 10:25:12编辑过]

意思是针对图片调整高度？

那就不要使用AutoFit自动调整，根据图片高度，手动设置行高RowHeight

谢谢老师已经可以了要先插入图片再调整高度

[此贴子已经被作者于2020/7/15 10:37:32编辑过]

试试:https://docs.microsoft.com/zh-cn/office/vba/api/excel.xlplacement?view=api-js-preview

Dim img as object

For Each tp As String In tpk

img = ws.Shapes.AddPicture( "\\192.168.1.207\产品图片$\" & tp , Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,200, gd + p * 80 , 50,50)

img.Placement = MSExcel.XlPlacement.xlMoveAndSize

p =p+1

主题：xls自动行高