vba 如何使用宏从Excel工作表生成图表
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/5316263/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
How to generate chart from excel sheet with macro
提问by marcinn
I have got some data in excel sheet
我在excel表中有一些数据
id X Y
93c3ac0d-5618-42a1-8495-79c890bcc440 3,855860732 3,855888397
7ba28c26-2a1f-41be-80f0-b0cfae97c504 3,818260653 3,818589846
a23ace40-c3c3-45cc-ab32-b59e33b7f83b 9,55033235 9,58033235
013c91b3-bc88-4dbd-ba65-1b02fd093ebb 6,541669914 6,552391904
afaef874-f52c-4ba2-9565-8bc7facabc93 6,560388448 6,570680712
35bfd027-147d-4a18-aa1b-217a3593c4b0 8,532138865 8,550715203
2b7e96d4-8e7b-422b-b07e-0e75378777cd 8,541575561 8,53250362
d34f7be8-65d1-4c22-b4c7-344db0ba356b 8,542794004 8,545666996
9430ea31-f8da-43be-9a4f-54cf382aa450 8,557895658 8,522192019
30d1998a-85b2-456b-81a7-878eafc418f7 9,55033235 9,58033235
19876333-2120-445e-b1cf-d6f5503c8513 9,55033235 9,58033235
4831acb3-b9e3-4a4c-9619-c835f6e77ea2 9,55033235 9,52033235
47bc5691-a6af-4898-b892-da98b56e6f6f 6,54075573 6,544362052
e4ab1a50-26e5-4f0e-8d62-ab24249125e9 8,5416706 8,5559438
56e6298e-e05a-433e-8365-a97dba2276df 9,55033235 9,52033235
f550a46e-139d-4073-a30e-d9c37d807475 9,55033235 9,548071894
43c667e0-c505-4843-aead-cbfc32bf6ac4 3,828557425 3,828682676
18f4f9a7-dfba-4e39-8a9d-6e812dbf89f3 6,512208526 6,509076709
44065b42-342d-42b2-872c-15891cd8e8e6 8,549072661 8,565770097
dcd8497e-8cb0-4d3b-9f14-d4362cc42e4c 6,545840736 6,570819834
e7405709-e212-443e-81db-4f57cceca642 9,55033235 9,52033235
0d639735-175f-4a5d-980a-37032c26cd5f 6,544109632 6,543897064
30860a47-101e-4fdb-8e9c-33475a140029 3,816656205 3,817036757
49e58de1-c621-4d52-844a-13b93190e8ce 9,55033235 9,52033235
c6d085be-dcfd-42de-b084-fbf657c44175 6,545139879 6,544869008
How to create macro to process all visible rows adding to chart
now series (guids) with x and y values to point chart (ChartType = xlXYScatter)?
The result chart should be placed in new sheet and have 25 series.
如何创建宏来处理现在添加到图表中的所有可见行（guids），x 和 y 值指向图表（ChartType = xlXYScatter）？结果图表应放置在新工作表中，并有 25 个系列。
回答by Jean-Fran?ois Corbett
The code below will do the trick. Though I'm wondering why on Earth you would want each point in a separate series...
下面的代码可以解决问题。虽然我想知道为什么在地球上你想要一个单独的系列中的每个点......
Option Explicit
Sub zonk()
Dim i As Long
With Charts.Add ' Make new chart
' Set its properties
.ChartType = xlXYScatter
.Location Where:=xlLocationAsNewSheet
.HasLegend = False
' Add the series
For i = 1 To 25
With .SeriesCollection.NewSeries
.XValues = Worksheets("Sheet1").Cells(1 + i, 2)
.Values = Worksheets("Sheet1").Cells(1 + i, 3)
.Name = Worksheets("Sheet1").Cells(1 + i, 1)
' Assuming your data is at the top left of Sheet1...
End With
Next i
End With
End Sub
