欢迎登陆真网站,您的到来是我们的荣幸。 登陆 注册 忘记密码? ☆设为首页 △加入收藏
欢迎加入真幸福QQ群
电脑知识: 基础知识 网络技术 操作系统 办公软件 电脑维修 电脑安全 windows7 windows8 windows10 服务器教程 平板电脑 视频播放教程 网络应用 互联网 工具软件 浏览器教程 QQ技巧 输入法教程 影视制作 YY教程 wps教程 word教程 Excel教程 PowerPoint
云南西双版纳特产小花糯玉米真空包装


steam怎么设置中文
Win7系统中unity web player是什么程序?
Linux系统如何挂载外接设备
win7系统防火墙限制QQ登录怎么办
win7系统运行极品飞车10出现卡顿怎么办
Win7系统如何屏蔽网页浮动广告
Win7笔记本蓝牙如何进行传输文件
Win7升级Win10后搜索无效怎么办
win7开机出现“登陆进程初始化失败”怎么办
win7如何设置everyone权限
excel怎么设置坐标轴标题对齐和绘区域的大小?
【 来源:网络 】【 点击:1 】 【 发布时间:2017_03_03 08:59:59 】

   excel怎么设置坐标轴标题对齐和绘区域的大小?办公党和学生党经常会用EXCEL做很多图,做PPT的时候这些图需要对齐放置,如果每个图裁切的大小不一样,或者绘图区矩形大小不一致,坐标轴标题位置不统一,怎么摆都觉得哪里没有对齐。由于EXCEL强大的数据处理能力和普及使用率,小白还是坚持用EXCEL作图。时间可贵,作为一个外行,我们不需要懂很多,够用即可,下文是小白用Vba简单实现以上功能,将上图修改成下图。与大家一起学习EXCEL绘图,高手请多多指点。

01.jpg
02.jpg

  1、建立“个人宏工作簿”:

  个人宏工作簿就是一个EXCEL文件,当我们建立了个人宏工作簿以后,每次打开excel文件的时候,它在后台自动打开并且隐藏(可在“视图”中隐藏或者显隐),我们可以把所有的宏都放在“个人宏工作薄”中,这样我们就不用将EXCEL保存成含有宏的文件了。

  如图点“开发工具”(没有的话,可以在自定义功能区里面找),点击“录制宏”,弹出“录制宏对话框”在“保存在"下拉菜单选择"个人宏工作簿",点击”确定",然后点击“停止录制”。第一个宏和个人宏工作簿就完成了。

03.jpg

  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

04.jpg
05.jpg

本网站由川南居提供技术支持,fkzxf版权所有 浙ICP备12031891号