新手继续请教各位：
现在我已经生成了这样的折线图，但是不知道如何才能修改坐标轴中字体的大小——如下图中Y轴的20.50，21.00，22.00等
多谢多谢^_^



图表属性是这样设置的


[code delphi]
procedure TFComm.creatchart(const startl : integer ; const endl : integer);
//创建chart，数据范围为startline to endl
var cell1, cell2, range1 : variant;
begin
cell1 := sheet.cells[startl,2];
cell2 := sheet.cells[endl,4];
range1 := sheet.range[cell1,cell2];//数据范围
sheet.ChartObjects.add(300, 30, 600, 280);
sheet.ChartObjects[1].Activate; //激活图表
sheet.ChartObjects[1].Chart.charttype:=xlLineMarkers; //数据点折线图
sheet.ChartObjects[1].Chart.seriescollection.ADD[range1]; //添加数据
sheet.ChartObjects[1].Chart.Axes[xlCategory].HasTitle:=True;
sheet.chartobjects[1].chart.hastitle := true;
sheet.ChartObjects[1].Chart.ChartTitle.Characters.Font.size := 9;
sheet.ChartObjects[1].Chart.ChartTitle.Characters.Text:= combobox1.Text; //
sheet.ChartObjects[1].Chart.Axes[xlCategory].AxisTitle.Font.size := 9;
sheet.ChartObjects[1].Chart.Axes[xlCategory].AxisTitle.Text:='时间';
// sheet.ChartObjects[1].Chart.Axes[xlCategory].CategoryNames.Font.size := 9;
//向上面这样设置的话报错~~~
sheet.ChartObjects[1].Chart.Axes[xlValue].HasTitle:=True;
sheet.ChartObjects[1].Chart.Axes[xlValue].AxisTitle.Font.size := 9;
sheet.ChartObjects[1].Chart.Axes[xlValue].Axistitle.Text := '温度';
sheet.ChartObjects[1].Chart.HasLegend:=false;//不显示图例
end;
[/code]

編輯記錄

问题解决了~~
sheet1.ChartObjects[1].Chart.Axes[xlCategory].TickLabels.Font.size := 6;
sheet1.ChartObjects[1].Chart.Axes[xlValue].TickLabels.Font.size := 6;
原来坐标轴是用ticklabels表示的~~~
另外学到一个新方法：
在菜单的"工具"-》 “宏”-》宏录制,点击录制之后
再在Excel画图标，包括设置字体大小等，做完这些之后，停止宏录制；
最后按下alt F11,在模块里头会看到相应的代码。
也许old了，反正我是第一次知道~~咔咔\(^_^)/