Foxtable(狐表)用户栏目专家坐堂 → Excel报表中标题行高度如何设置?


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

主题:Excel报表中标题行高度如何设置?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/11 14:35:00 [显示全部帖子]

以下是引用包头123在2019/3/11 14:28:00的发言:
设置模板的时候已经设置了标题行的高度,不管设置多高,都但不管用。

 

具体实例发上来测试


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/11 15:07:00 [显示全部帖子]

设置rowheight即可,如

 

RowHeight
ColumnWidth

这两个属性用于设置单元格大小,RowHeight用于设置行高,ColumnWidth用于设置列宽。例如:

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A1:C1")   '可指定任意单元格或单元格区域
Rg.RowHeight = 40 '行高40磅
Rg.ColumnWidth = 20   '列宽20磅
App.Visible = True

如果要恢复标准行高和标准列宽,可以这样:

Rg.RowHeight = Ws.StandardHeight
Rg.ColumnWidth = Ws.StandardWidth


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/11 15:18:00 [显示全部帖子]

指定范围啊

 

Dim Rg As MSExcel.Range = Ws.Rows("1:3")   '可指定任意单元格或单元格区域

 

不会做上传具体实例


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/14 14:35:00 [显示全部帖子]

以下是引用包头123在2019/3/14 14:29:00的发言:
固定标题行正确的语句是:
     .PrintTitleRows = "$1:$3"

 

如果还有问题,请上传具体实例说明。


 回到顶部