ruby - Ruby WIN32OLE excel图表系列集合值

Question

我正在尝试更改 Excel（实际上是 PowerPoint）图表的值。我尝试通过传递一个数组来做到这一点，但它似乎不起作用。尽管如本页所述，它应该可以工作......：http: //msdn.microsoft.com/en-us/library/office/ff746833.aspx

那么我的代码目前看起来如何：

require 'win32ole'
mspp_app = WIN32OLE.new("Powerpoint.Application")
mspp     = mspp_app.Presentations.Open(pathToFile)

slide         = mspp.Slides(1)
shapes        = slide.shapes
chartshape    = shapes(3) #the chart happens to be shape n°3
chart         = chartshape.chart

# now get the seriescollection
sc  = chart.SeriesCollection
sc3 = sc.Item(3)

values = sc3.values #returns the current values as an array example: [1.0, 1.0, 5.0, 2.0]

# now set the values
sc3.values = [2.0, 2.0, 5.0, 1.0] # returns no error

# see if the values are set
values = sc3.values # returns an empty Array [] 

以前有人试过吗？

Answer 1

要操作图表数据，您必须更改基础工作表：

ws = myChart.Chart.ChartData.Workbook.Worksheets(1)

ws.Range("A2").Value = "Coffee"
ws.Range("A3").Value = "Soda"
ws.Range("A4").Value = "Tea"
ws.Range("A5").Value = "Water"
ws.Range("B1").Value = "Amount"  # used as label for legend
ws.Range("B2").Value = "1000"
ws.Range("B3").Value = "2500"
ws.Range("B4").Value = "4000"
ws.Range("B5").Value = "3000"

如果维度已更改，更改 SourceData-Range 很重要。注意 Excel 中已知的不同概念：“ =Tabelle1!A1:B5 ”而不是“A1:B5”。

对于英文办公版本，将“Tabelle1”更改为“Sheet1”

myChart.Chart.SetSourceData("=Tabelle1!A1:B5")
myChart.Chart.ChartData.Workbook.Close

之后不要忘记关闭工作表。