以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  EXCEL报表如何设置自动行高?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129551)

--  作者:huangxueyao
--  发布时间:2018/12/31 11:25:00
--  EXCEL报表如何设置自动行高?
Dim k As Integer = 7 + i
Dim Style1 As XLS.Style = Book.NewStyle() \'单元格边框
Style1.BorderTop = XLS.LineStyleEnum.Thin
Style1.BorderBottom = XLS.LineStyleEnum.Thin
Style1.BorderLeft = XLS.LineStyleEnum.Thin
Style1.BorderRight = XLS.LineStyleEnum.Thin
Style1.AlignHorz = XLS.AlignHorzEnum.Center
Style1.WordWrap = true
F or r As Integer = 7 To k
    F or c As Integer =0 To 27
        Sheet(r,c).Style = Style1
    N ext
    Sheet.Rows(R).Height = AUTO
N ext

自动换行虽然生效,但是行高不会变化,所以还是只是显示一行。
后面想加一句自动行高,但是报错无法保存。

--  作者:有点甜
--  发布时间:2019/1/2 11:57:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119231&replyID=804495&skin=1