Foxtable(狐表)用户栏目专家坐堂 → 如何获得Excel指定行的高度


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

主题:如何获得Excel指定行的高度

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


加好友 发短信
等级:二尾狐 帖子:558 积分:4352 威望:0 精华:2 注册:2011/4/18 8:27:00
如何获得Excel指定行的高度  发帖心情 Post By:2014/2/9 22:27:00 [只看该作者]

属性

说明

Height

返回或设置行高,单位为像素。


Dim Book As New XLS.Book 
Book.DefaultFont = New Font("宋体",12)
Dim Sheet As XLS.Sheet = Book.Sheets(0) 
    Sheet(0, 0).Value = "编号"
   Sheet(0, 1).Value = "问题"
Sheet.Cols(0).Width = 60
Sheet.Cols(1).Width = 600
Sheet(1, 0).Value = "编号1"
Sheet(1, 1).Value = "编号2"

'Sheet.Rows(0).Height = 30 '设置第一行高度
'Sheet.Rows(1).Height = 70 '设置第二行高度

Book.Save("C:\Documents and Settings\Administrator\桌面\编程1.xls")
Dim Proc As New Process
Proc.File = "C:\Documents and Settings\Administrator\桌面\编程1.xls"
Proc.Start()
output.show(Sheet.Rows(0).Height )
output.show(Sheet.Rows(1).Height )

如果采用自动换行或默认行高,采用“Height ”不能获得指定行高度,但如果先设置行高,“Height"就能正常返回值。
请问采用自动换行时如何获得指定行高度?
[此贴子已经被作者于2014-2-9 22:27:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/2/9 23:05:00 [只看该作者]

 我查了下,没找到方法。我说说我笨笨的思路,获取单元格的字体大小,然后求文字的长度和单元格宽度,计算高度。

 待高手

 回到顶部
帅哥哟,离线,有人找我吗?
明丰
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:558 积分:4352 威望:0 精华:2 注册:2011/4/18 8:27:00
  发帖心情 Post By:2014/2/10 7:23:00 [只看该作者]

采用单元格自动换行时,希望单元格中的文本与上下边框保持一定的距离,这就需要在原来行高的基础上增加高度,请问如何设置?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/2/10 8:51:00 [只看该作者]

设置上下居中不可以吗?
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style.AlignVert = XLS.AlignVertEnum.Center

 回到顶部