VFP 愛用者社區

[羅朝斌]

感謝 garfield 大大指導!! 小弟已會錄製excel巨集,但請教此行之巨集內容應如何轉修改成vfp語法?無論怎麼試都不對,能否請大大指導!!

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:D8"), PlotBy:= xlColumns


(指定chart資料範圍為a1:d

[garfield]

xlColumns 的值可在 excel 裡查得到,
或在 http://fox.wikis.com/wc.dll?Wiki~ExcelConstants~VFP

用google 查到相關資料
http://forum.foxclub.ru/read.php?29,216065
參考代碼:
LOCAL loXlsApp as Excel.Application, loXlsBook as Excel.Workbook, loXlsSheet as Excel.Worksheet
LOCAL loXlsChart as Excel.Chart

loXlsApp = CREATEOBJECT("Excel.Application")
loXlsApp.Visible = .T.
loXlsBook = loXlsApp.Workbooks.Add()
loXlsSheet = loXlsBook.Worksheets(1)
loXlsSheet.Range("A1").Value = 10
loXlsSheet.Range("A2").Value = 20
loXlsSheet.Range("A3").Value = 30
loXlsSheet.Range("A4").Value = 40
loXlsSheet.Range("A5").Value = 50
loXlsSheet.Range("A6").Value = 60
loXlsSheet.Range("A7").Value = 70
loXlsSheet.Range("A8").Value = 80

#DEFINE xlColumns 2
#DEFINE xl3DPie 70
#DEFINE xlLocationAsObject 2
#DEFINE xlDataLabelsShowPercent 3

loXlsChart = loXlsApp.Charts.Add()
loXlsChart.ChartType = xl3DPie
loXlsChart.ApplyDataLabels(xlDataLabelsShowPercent)
loXlsChart.SetSourceData(loXlsSheet.Range("A1:A8"), xlColumns)
loXlsChart.Location(xlLocationAsObject, "Лист1")



另外也有提到改寫其它excel的指令的方法
Excel:
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:=False, _
ShowValue:=False, ShowPercentage:=True, ShowBubbleSize:=False

vfp:
with xl.Application.Charts(1)
.ShowValue = .F. && уберем значения
.ShowPercentage = .T. && покажем доли
endwith

[羅朝斌]

問題已經解決了!!
garfield誠摯感謝您不吝指導!! 讓小弟再度領悟論壇之溫馨!! 感恩.....