求助，用VBA做一个散点图!!!

Question

       有一EXCEL数据里面每次检测结果数据（如：检测明细数据），现需要用VBA做出一散点图（如：sheet1)效果。请高手赐教！！！！

Answer 1

http://club.excelhome.net/thread-455423-1-1.html

Answer 2

caozhy, 你好，连接中附件无法打开，新注册了用户也下不了。你方便给我们一个吗？谢谢[email protected]

Answer 3

比如：
Option ExplicitSub Macro1()
'
' Macro1 Macro
' 宏由 MicroSoft 录制，时间: 2017/3/1
''
    Range("D2").Select
    Charts.Add
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A26"), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub
.