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


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

主题:如何获得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


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

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

 回到顶部