Foxtable(狐表)用户栏目专家坐堂 → EXCEL报表如何设置自动行高?


  共有2367人关注过本帖树形打印复制链接

主题:EXCEL报表如何设置自动行高?

帅哥哟,离线,有人找我吗?
huangxueyao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:443 积分:3530 威望:0 精华:0 注册:2013/2/9 12:45:00
EXCEL报表如何设置自动行高?  发帖心情 Post By:2018/12/31 11:25:00 [显示全部帖子]

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

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

 回到顶部