高手止步
If GraphType <> "" Then
If GraphType = "1" Then
Sheet2.Shapes("图表 1").Chart.SetSourceData Sheet1.Range("F6")
End If
If GraphType = "2" Then
Sheet2.Shapes("图表 1").Chart.SetSourceData Sheet1.Range("F6")
End If
If GraphType = "3" Then
Sheet2.Shapes("图表 1").Chart.SetSourceData Sheet1.Range("F6")
End If
End If
出不来图表怎么回事啊
[解决办法]
用Select Case语句可能会比较好。
另外，你只用"F6"一个区域就想出图？
[解决办法]
你先把这句放在EXCEL里面运行下看看出来什么,还有楼主这程序结构最好写成
SELECT CASE GraphType
CASE "":
CASE "1":
CASE "2":
CASE "3":
...
END SELECT
