请教各位 关于delphi生成excel折线图中坐标轴格式的设置问题 |
缺席
|
kokonor
一般會員 發表:5 回覆:5 積分:2 註冊:2009-04-29 發送簡訊給我 |
新手继续请教各位:
现在我已经生成了这样的折线图,但是不知道如何才能修改坐标轴中字体的大小——如下图中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] 編輯記錄
kokonor 重新編輯於 2009-05-05 11:43:06, 註解 無‧
|
kokonor
一般會員 發表:5 回覆:5 積分:2 註冊:2009-04-29 發送簡訊給我 |
问题解决了~~
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了,反正我是第一次知道~~咔咔\(^_^)/ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |