查看: 4869|回复: 1
如何用VBA设置图表横坐标轴交叉值？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴站内采编:
署名作者: biaotiger1
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 2010&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 biaotiger1 于
09:40 编辑
Q：如何用VBA设置图表横坐标轴交叉值？
A：右键单击sheet1工作表，弹出快捷菜单→“查看代码”，在代码窗口输入代码如下：Sub 坐标交叉值()
Dim chr As Chart, I
& & Set chr = Shapes.AddChart.Chart
& & With chr
& && &&&.ChartType = xlColumnClustered
& && &&&.SetSourceData Source:=Range(&Sheet1!$A$1:$A$10&)
& && &&&.SetElement (msoElementPrimaryCategoryAxisWithoutLabels) '显示无标签坐标轴
& && &&&.Axes(xlValue).MajorGridlines.Format.Line.Visible = msoFalse '不显示网格线
& && &&&For I = 0 To .Axes(xlValue).MaximumScale '设置循环
& && && && &.Axes(xlValue).CrossesAt = I '更改坐标轴交叉点
& && && && &DoEvents
& && &&&Next I
& & End With
End Sub复制代码运行以上代码，则在sheet1工作表中插入一个以$A$1:$A$10为数据源的柱形图。对该柱形图初始化（详见如上注释）后，横坐标轴交叉值点从0逐渐调整为最大值。
交叉.gif (47.63 KB, 下载次数: 1)
如何用VBA设置图表横坐标轴交叉值？
09:38 上传
09:40 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
12.77 KB, 下载次数: 31, 下载积分: 消费券 -5 Ti币
如何用VBA设置图表横坐标轴交叉值？
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
不错，收下了
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by为什么excel2010创建图表时不能自己定义x轴和y轴的数据?如图我想将A列数据作为图表的横坐标数据（自变量）,B列数据作为图表的纵坐标数据（因变量）,绘出一条曲线而不是两条曲线,但是不知道怎么做.
在上面生成的图中选中曲线后右键—选择数据—左边图例（系列）把不要的曲线删除,编辑右边水平分类轴选择X轴数据
为您推荐：
其他类似问题
扫描下载二维码查看: 9120|回复: 25
阅读权限1UID601629函数0 关最后登录经验18 点在线时间0 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分18精华0帖子日志注册时间
幼儿园小班, 积分 18, 距离下一级还需 82 积分
金币6 个积分18帖子
请高手帮帮忙怎么解决这个问题？我现在用一个exceel表格做一个图，横坐标为日期，比如3号、4号一直到30号，但是我做出来的双轴折线图横坐标一直显示的是1、2一直到28.我怎么处理才能让横坐标显示为3号到30号呢？如图所示····
(122.91 KB, 下载次数: 40)
14:12 上传
点击文件名下载附件
如图所示横坐标显示
最后登录 17:02&注册时间 09:21&金币20 &积分26&帖子&
金币20 &积分26&帖子&
lw2294发布于
供参考& && && && && && && && & ：）
阅读权限255UID227929函数5 关最后登录经验29615 点在线时间3384 小时VBA0 关分享记录好友技巧9 关相册主题段位3 段金币4488 个积分29640精华3帖子日志注册时间
【T015】【V5入010】
金币4488 个积分29640帖子
传附件上来& && && && && && && && && &
阅读权限1UID601629函数0 关最后登录经验18 点在线时间0 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分18精华0帖子日志注册时间
幼儿园小班, 积分 18, 距离下一级还需 82 积分
金币6 个积分18帖子
JLxiangwei 发表于
传附件上来
你说的附件是exceel表格吗？
阅读权限1UID601629函数0 关最后登录经验18 点在线时间0 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分18精华0帖子日志注册时间
幼儿园小班, 积分 18, 距离下一级还需 82 积分
金币6 个积分18帖子
JLxiangwei 发表于
传附件上来
我刚上传了一个excell表格和所作图的截图，，截图行吗？
阅读权限1UID601629函数0 关最后登录经验18 点在线时间0 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分18精华0帖子日志注册时间
幼儿园小班, 积分 18, 距离下一级还需 82 积分
金币6 个积分18帖子
JLxiangwei 发表于
传附件上来
这是附件 第一次使用发帖功能 不要见笑啊
14:25 上传
点击文件名下载附件
1.71 KB, 下载次数: 8
这个是原始excell表格
阅读权限1UID601629函数0 关最后登录经验18 点在线时间0 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分18精华0帖子日志注册时间
幼儿园小班, 积分 18, 距离下一级还需 82 积分
金币6 个积分18帖子
JLxiangwei 发表于
传附件上来
在线等 急用 呵呵 谢谢高手了 我现在还是菜鸟级别
阅读权限255UID227929函数5 关最后登录经验29615 点在线时间3384 小时VBA0 关分享记录好友技巧9 关相册主题段位3 段金币4488 个积分29640精华3帖子日志注册时间
【T015】【V5入010】
金币4488 个积分29640帖子
(71.61 KB, 下载次数: 19)
14:37 上传
点击文件名下载附件
总评分:&经验 + 1&
阅读权限1UID601629函数0 关最后登录经验18 点在线时间0 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分18精华0帖子日志注册时间
幼儿园小班, 积分 18, 距离下一级还需 82 积分
金币6 个积分18帖子
JLxiangwei 发表于
步骤是什么呀？我很多这样的表格要处理。我按照你的步骤学习一下。非常感谢你啊，太牛了！
阅读权限255UID227929函数5 关最后登录经验29615 点在线时间3384 小时VBA0 关分享记录好友技巧9 关相册主题段位3 段金币4488 个积分29640精华3帖子日志注册时间
【T015】【V5入010】
金币4488 个积分29640帖子
bailufengdan6 发表于
步骤是什么呀？我很多这样的表格要处理。我按照你的步骤学习一下。非常感谢你啊，太牛了！
14:47 上传
阅读权限2UID295036函数0 关最后登录经验184 点在线时间65 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币531 个积分184精华0帖子日志注册时间
幼儿园中班, 积分 184, 距离下一级还需 16 积分
金币531 个积分184帖子
你用的是2010版的吗？
&你想要零几版的&
每周一测编辑
最佳答案累计大于500
站长推荐 /1
上班路上，回家途中，晚上睡前，每天一篇excel原创教程，由浅入深，全面学习excel技巧、函数、图表和VBA编程。
Powered by更多频道内容在这里查看
爱奇艺用户将能永久保存播放记录
过滤短视频
暂无长视频（电视剧、纪录片、动漫、综艺、电影）播放记录，
您的白银会员还有3天到期啦，续费继续免广告～
手机注册爱奇艺，享受更多云服务
按住视频可进行拖动
&正在加载...
抱歉，本页暂无内容！
{{ each data as item index}}
{{ each data as item index}}
{{if item.isLast}}
&正在加载...
&正在加载...
&正在加载...
把视频贴到Blog或BBS
当前浏览器仅支持手动复制代码
视频地址：
flash地址：
html代码：
通用代码：
通用代码可同时支持电脑和移动设备的分享播放
收藏成功，可进入查看所有收藏列表
方式1：用手机看
用爱奇艺APP或微信扫一扫，在手机上继续观看：
方式2：一键下载至手机
限爱奇艺安卓6.0以上版本
使用微信扫一扫，扫描左侧二维码，下载爱奇艺移动APP
其他安装方式：手机浏览器输入短链接http://71.am/164eL4
下载安装包到本机：&&
设备搜寻中...
请确保您要连接的设备（仅限安卓）登录了同一爱奇艺账号 且安装并开启不低于V6.0以上版本的爱奇艺客户端
连接失败！
请确保您要连接的设备（仅限安卓）登录了同一爱奇艺账号 且安装并开启不低于V6.0以上版本的爱奇艺客户端
部安卓（Android）设备，请点击进行选择
请您在手机端下载爱奇艺移动APP（仅支持安卓客户端）
使用微信扫一扫，下载爱奇艺移动APP
其他安装方式：手机浏览器输入短链接http://71.am/164eL4
下载安装包到本机：&&
爱奇艺云推送
请您在手机端登录爱奇艺移动APP（仅支持安卓客户端）
使用微信扫一扫，下载爱奇艺移动APP
180秒后更新
打开爱奇艺移动APP，点击“我的-扫一扫”，扫描左侧二维码进行登录
没有安装爱奇艺视频最新客户端？
爸爸去哪儿2游戏 立即参与
30秒后自动关闭
word2003柱形图横坐标项目类别的顺序翻转,颠倒
播放量数据：
{{each data}}
抱歉，没有“{{feature}}”的其他视频了.
&正在加载...
{{ each data as item index}}
喜欢就评价下吧
Copyright (C) 2016
All Rights Reserved
您使用浏览器不支持直接复制的功能，建议您使用Ctrl+C或右键全选进行地址复制
安装爱奇艺视频客户端，
马上开始为您下载本片
5秒后自动消失
&li data-elem="tabtitle" data-seq="{{seq}}"&
&a href="javascript:void(0);"&
&span>{{start}}-{{end}}&/span&
&li data-downloadSelect-elem="item" data-downloadSelect-selected="false" data-downloadSelect-tvid="{{tvid}}"&
&a href="javascript:void(0);"&{{pd}}&/a&
选择您要下载的《》剧集：
您使用浏览器不支持直接复制的功能，建议您使用Ctrl+C或右键全选进行地址复制查看: 4971|回复: 5
在excel中设置自定义间隔的时间和日期两组横轴标签的问题
阅读权限10
在线时间 小时
& & & & & & & &
我在excel中想设置两组横轴标签，上面标签为时间，单位时分，下面标签为日期，单位月日，自定义两标签之间的间隔。之前已经会了一列为日期，一列为时间，然后可以自动生成等间隔的时间序列曲线，这间隔也随着图的放大缩小而放大缩小。
但是如果想对时间设置为固定间隔，比如6小时，我设置之后，结果横轴标签挤在一起，看不清时间了，详见附件
(43.46 KB, 下载次数: 24)
21:29 上传
点击文件名下载附件
。故想请教这怎么解决。谢谢。
阅读权限30
在线时间 小时
本帖最后由 车仁静 于
11:40 编辑
发错了& && && && &
阅读权限70
在线时间 小时
挤到一起是因为你要显示的标签太多，而图表太小，肯定会挤到一起
解决办法：
1、将图表设置的足够大
2、设置横坐标的显示间隔数，默认的是1，即每个都显示，你可以按照你的需要设置相应的值
阅读权限10
在线时间 小时
bravolhq 发表于
挤到一起是因为你要显示的标签太多，而图表太小，肯定会挤到一起
解决办法：
谢谢，您说的第一种方法是指将图表拉长拉宽？这个我之前试了好像不行。第二种方法，我设置的是自己定义的间隔值后，就出现描述的标签挤到一起的问题。如果您做的可以正常显示，能加上表格附件让我看看吗？谢谢。
阅读权限10
在线时间 小时
我自己又试了下，发现在“坐标轴选项”中把“多层分类标签”前面的勾选框不选就好了。选了就挤在一起了。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师