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中已知的不同概念：＆＃34; = Tabelle1！A1：B5 ＆＃34;而不是＆＃34; A1：B5＆＃34;。

英语办公室版本更改＆＃34; Tabelle1＆＃34;到＆＃34; Sheet1＆＃34;

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

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

Ruby WIN32OLE excel图表seriescollection值

1 个答案: