excel怎么设置坐标轴标题对齐和绘区域的大小?办公党和学生党经常用EXCEL制作很多图片。制作PPT时,这些图片需要对齐。如果每张图片的大小不一样,或者绘图区域的矩形大小不一样,坐标轴标题的位置不统一,你会觉得哪里都没有对齐。由于EXCEL强大的数据处理能力和普及性,小白仍然坚持用EXCEL绘图。时间是宝贵的,作为一个门外汉,我们不需要知道很多,适可而止。下面是小白用Vba对上述功能的简单实现,上图修改成下图。和大家一起学习EXCEL绘图。请高手多指教。
1、建立“个人宏工作簿”:
个人宏工作簿就是一个EXCEL文件,当我们建立了个人宏工作簿以后,每次打开excel文件的时候,它在后台自动打开并且隐藏(可在“视图”中隐藏或者显隐),我们可以把所有的宏都放在“个人宏工作薄”中,这样我们就不用将EXCEL保存成含有宏的文件了。
如图点“开发工具”(没有的话,可以在自定义功能区里面找),点击“录制宏”,弹出“录制宏对话框”在“保存在”下拉菜单选择”个人宏工作簿”,点击”确定”,然后点击“停止录制”。第一个宏和个人宏工作簿就完成了。
2、编写宏文件:
打开一个EXCEL文件,点击“开发工具”“VisualBasic”弹出VB界面,在左侧的“工程资源管理器”树中(如果没有,请在VB界面点”视图“查找),我们看到了两个项目,第一个项目“personal.xlsb”就是自动打开的隐藏的个人宏工作簿,双击”模块1“,刚才录制的宏就在这里面,觉得没用可以删除,在模块1中,我们写下以下代码(注释见图片中),会点英语的应该都能看懂。这样我们的宏建好了,以后任意EXCEL都可以用了。
Sub 宏1绘图区和坐标轴设置()
Dim HalfHeight, HalfWidth, OffsetTop, OffsetLeft, ChartHeight As Double
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Width = 455
ActiveChart.ChartArea.Height = 348
ChartHeight = ActiveChart.ChartArea.Height
ActiveChart.PlotArea.Select
Selection.InsideLeft = 45
Selection.InsideTop = 10
Selection.InsideWidth = 400
Selection.InsideHeight = 300
OffsetLeft = Selection.InsideLeft
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