excel怎么设置坐标轴标题对齐和绘区域的大小? / 木子杰软件教程

　　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

excel怎么设置坐标轴标题对齐和绘区域的大小?

相关推荐