批量出图

yu-gn · 发表于 2004-11-18 14:33

根据图中数据批量画图，数据处理前后如附件中所示，求大虾帮忙编程实现，小弟每次都徒手画n天

QZkhSlvQ.rar (103.82 KB, 下载次数: 371)

[此贴子已经被作者于2004-11-18 14:36:53编辑过]

henterwu · 发表于 2004-11-18 19:25

做成XLT，以后新建后只要修改数据就行了。

yu-gn · 发表于 2004-11-19 08:10

但是每一次出图的数据个数是不同的

cs001，18（红色的为数据个数）

-100（横坐标），3（纵坐标）

-50，5

......（共18行）

cs002，12

......（共12行）

yu-gn · 发表于 2004-11-19 13:43

不死心

再顶！！！！！！！！！！！

taller · 发表于 2004-11-19 14:33

试试

Sub Drawing() Application.ScreenUpdating = False For i = 1 To [a65536].End(xlUp).Row If Left(Cells(i, 1), 2) = "cs" Then Charts.Add With ActiveChart .ChartType = xlXYScatterLines .SetSourceData Source:=Cells(i + 1, 1).Resize(Cells(i, 2), 2), PlotBy _ :=xlColumns .SeriesCollection(1).Name = Cells(i, 1) .Location Where:=xlLocationAsObject, Name:="Sheet1" End With crt = ActiveChart.Name crt = Mid$(crt, InStr(1, crt, "Chart")) With ActiveSheet.Shapes(crt) .Top = Cells(i, 4).Top .Left = Cells(i, 4).Left .Height = Cells(i, 2) * Cells(i, 2).Height End With End If Next Application.ScreenUpdating = True MsgBox "Ready" End Sub

yu-gn · 发表于 2004-11-21 11:19

谢谢斑竹

但测试不通过，提示要求对象，逐步调试到第四步停

ps：我只会点vb，但对office vba一窍不通，所以还请斑竹多费心

yu-gn · 发表于 2004-11-21 19:58

taller 斑竹在帮忙看看吧

其他各位也帮忙亚

taller · 发表于 2004-11-22 09:47

以下是引用yu-gn在2004-11-21 11:19:00的发言：

谢谢斑竹

但测试不通过，提示要求对象，逐步调试到第四步停

ps：我只会点vb，但对office vba一窍不通，所以还请斑竹多费心

dwwHm0j8.zip (68.73 KB, 下载次数: 477)

chenjun · 发表于 2004-11-22 10:11

是有问题，简体中文版的这句crt = Mid$(crt, InStr(1, crt, "chart"))应该改为 crt = Mid$(crt, InStr(1, crt, "图表 "))

taller · 发表于 2004-11-22 14:56

以下是引用chenjun在2004-11-22 10:11:00的发言： 是有问题，简体中文版的这句crt = Mid$(crt, InStr(1, crt, "chart"))应该改为 crt = Mid$(crt, InStr(1, crt, "图表 "))

幸亏转到图表版面,不然累死也想不到

[em04]

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