[求助]关于宏生成图的问题

yanchangsh · 发表于 2004-12-1 11:16

为什么我用宏生成图的时候只能运行到用向导直接生成图的结束下面我做的操作如把图调整大小改变图的背景的颜色之类的操作宏就显示出错了不能运行老是说方法AXES 作用于对象

---chart失败重复了好多次还是这样不知道什么原因

c8fWZNTF.rar (14.22 KB, 下载次数: 95)

chenjun · 发表于 2004-12-1 12:58

.SeriesCollection(2).AxisGroup = 2 .Axes(xlCategory, xlSecondary).HasTitle = False 按上加上一句将某个系列绘制在次坐标轴，这样才能设置xlSecondary的标题。后面一段改为 i = ActiveSheet.Shapes.Count With ActiveSheet.Shapes(i) .IncrementLeft 696.75 .IncrementTop -39# .ScaleWidth 1.89, msoFalse, msoScaleFromTopLeft .ScaleHeight 1.05, msoFalse, msoScaleFromTopLeft End With

goots · 发表于 2004-12-1 13:05

代码本身没问题可能是EXCEL内部错误，楼主可以注意到，生成图表的代码运行后，有时产生的图表类型并不是指定的双轴折线图，EXCEL反而偷懒变成了单轴图，楼主次坐标轴的操作自然就导致错误。录制一个宏，先生成普通折线图，再将一个系列改成次轴。如： Charts.Add ActiveChart.ChartType = xlLineMarkers ActiveChart.SetSourceData Source:=Sheets("OQC入检年度推移图 ").Range( _ "A16:O17,A12:O13,A9:O9") ActiveChart.Location Where:=xlLocationAsObject, Name:="OQC入检年度推移图 " ActiveChart.SeriesCollection(3).Select ActiveChart.SeriesCollection(3).AxisGroup = 2

yanchangsh · 发表于 2004-12-2 18:47

看了这么多代码搞得云里雾还是不怎么会主要是因为自己太菜但是由于公司要急着完成任务大家能不能帮忙先帮我改一下

一直到完成执行那个图的宏就是我列子的图的样子

先谢谢了

chenjun · 发表于 2004-12-3 11:23

你不会VBA吗？那例子中的VBA是谁写的？

yanchangsh · 发表于 2004-12-3 16:29

这个列子里面的VBA是电脑自己写的 (:我是录制宏自动生成的啊

chenjun · 发表于 2004-12-4 13:24

你的例子中有2个图表，你要那一个（上面的还是右面的），图表位置要放在什么地方？

yanchangsh · 发表于 2004-12-6 15:35

我当然是要上面的了上面的是我们要的最终的效果啊下面的那个只是我做上面的时候准备用宏生成的位置就是上面那个图的位置就可以了谢谢啊帮忙我很急啊至于里面的代码在关键的地方能给点解释就最好了

chenjun · 发表于 2004-12-8 23:48

插入内嵌图表的全过程代码，有很多代码在具体使用中可以省略的。

eHs5nKQl.zip (18.73 KB, 下载次数: 216)

yanchangsh · 发表于 2004-12-9 10:04

hehe 谢谢您我正在学VBA 刚刚学了ACCESS 把ACCESS中的查询数据导入EXCEL再生成图那就要根据查询的数据不同生成对应的图就只能用EXCEL里的宏了刚开始学EXCEL,对于里面的宏不是很了解呵呵再次表示感谢啊

		自动登录	找回密码
密码			免费注册