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

[wubigtree]

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

[threenewbee]

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

[wubigtree]

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

[一如既往哈]

你录制一段宏，然后稍微修改一下就可以了................

[一如既往哈]

比如：

Option Explicit

Sub 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

.