爱刨根知识网

  1. 首页 > 经验知识 > >

坐标轴标题位置不统一

生活经验知识分享

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

    推荐阅读


    上一篇：Word如何加密与取消加密

    下一篇：我们就来具体解决一下该问题