OffsetTop = Selection.InsideTop
HalfWidth = Selection.InsideWidth 2
HalfHeight = Selection.InsideHeight 2
ActiveChart.Axes(xlValue).AxisTitle.Select
Selection.Left = 0
Selection.Top = ((HalfHeight + OffsetTop) - (Selection.Height 2))
ActiveChart.Axes(xlCategory).AxisTitle.Select
Selection.Left = ((HalfWidth + OffsetLeft) - (Selection.Width 2))
Selection.Top = ChartHeight - Selection.Height - 3
End Sub



3、使用宏修改我们的图表:
打开含有图表的Excel文件,双击选中图表,在”设置图表区格式“取消锁定纵横比,固定比例就不能按自己的数值设置了;选中”大小和位置均固定“,否则你插入和删除单元格,图表大小也会跟随者变化,很讨厌;将缩放比例固定到100%,在不同缩放比例下的图表效果是不同的;最后将坐标轴标题显示出来,因为代码中没有这一条,如果坐标轴标题没显示出来,运行宏找不到坐标轴标题会报错。
当然最好在代码中加上,这里先搁下,当我们用EXCEL修改好了图表,就可以用”宏“了,双击选中要修改的图表,点击”开发工具“-”宏“,在”宏对话框“中选择”绘图区和坐标轴设置”,点击执行,完成。至此我们设置了1、图表大小;2、绘图区矩形框大小,3、坐标轴标题的位置。

4、根据需要修改参数:
别人的大小参数可能不适合自己,对宏参数不满意,可以点击“开发工具”-“宏”-”编辑“弹出“模块1代码编辑窗口”,在这里修改大小数据。如果运行中遇到什么问题可以点击“单步执行”,按F8一步一步执行,看看哪一步有问题。
小白只了解3个东西,1对象:Chart就是一个图表对象;2属性:Chart有一个高度属性Height;PlotArea也是Chart的一个属性,代表绘图区,当然PlotArea也是一个对象,有着自己的属性,比如它的大小,颜色;3 方法,是一个动作,比如Select,就是选中;如果对代码中的任何东西看不懂可以在代码窗口将鼠标放在看不懂的地方,按F1会弹出MSDN帮助网页(如PlotArea),多看MSDN。
学习Vba除了看MSDN(不搞这个的估计都不怎么看),还有一个好办法,就是录制宏,比如我们不知道如何设置坐标轴标题颜色,我们点击“录制宏”,然后用鼠标对坐标轴添加颜色,然后去“模块”中查看刚才录制的宏代码,看不懂?按F1->MSDN看看。录制宏+MSDN+找一本参考书看看(如果学过C语言等,对编程语言有一点了解的只要花很少的时间看看就行了)










