主题：[求助]如何设置汇总行标题的字体和颜色

如题，我想将分组列设置为不同字体和颜色，使之更明显，请教老师

Dim t As Table = Tables("项目计划_Table2")
Tables("项目计划_Table2").Sort ="编号"    '按_SortKey排序
Dim g As Subtotalgroup
t.GroupAboveData = True
t.TreeVisible = True
t.SpillNode = True
t.SubtotalGroups.Clear()
'定义客户分组
g = New Subtotalgroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "任务专业" '分组列为:任务专业
g.TotalOn = "工期" '统计工期列
g.Caption = "{0}" '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中

g = New Subtotalgroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "主项名称" '分组列为:主项名称
g.TotalOn = "工期" '统计工期列
g.Caption = "{0}" '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中

g = New Subtotalgroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "任务类" '分组列为:任务类
g.TotalOn = "工期" '统计工期列
g.Caption = "{0}" '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中

t.Subtotal() '生成汇总模式

1、各个分组行用不同颜色的粗体字区分，更醒目。

2、各分组汇总中的[计划开始日期]、[计划完成日期]分别用其分组中的最小时间和最大时间代替。

3、接下来根据汇总表做甘特图

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目计划管理.zip