大猫好！图表转置数据，如何VBA->vFP

[wwle]

Sub Macro1()
'
' Macro1 Macro
''
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetSourceData
End Sub



这是我录的宏： 就在图表右键->选择数据->行列转置


我就把代码直接在vfp中这样写：

LOCAL m.sfzz
IF .sheets("统计分析").UsedRange.Rows.Count<=3 THEN && 这里因为表格格行数不上于等于3(带标题) 需要数据行列转置
m.sfzz=.t.
ENDIF


.sheets("统计分析" ).Select
.sheets("统计分析" ).Range(m.cRange).Select
.Charts.Add
WITH .ActiveChart
.Name =fncTran('折线图')+m.cChartName
.ChartType =65
.HasTitle =.T.
.HasLegend =.T.
.HasDatatable=.F.
.WallsAndGridLines2D =.T.
.ApplyDataLabels(-4142)

IF m.sfzz THEN && 我把宏代码直接写这里，居然报错
.SeriesCollection(1).Select
.SetSourceData
ENDIF

endwith

[wwle]

这需要什么参数吗？

[wwle]

.SetSourceData(1) 我随便写成 1 报错: type mismatch 类型不对，难道是写数据范围？

[都市夜猫]

如要指定第一个参数，参数类型应该是一个 Range 对象
这些方法，属性可以查 excel 帮助或 msdn，也可以去这里查 http://www.feiesoft.com/vba/excel/xlmthsetsourcedata.htm，中文的，资料也比较齐全
不传参数应该也可以吧，加上括号试试：.SetSourceData()

该死的 csdn，一天到晚老是 500

[wwle]

我是404,没有打开。谢谢大猫