charts - VBA error "Method or Data Memeber Not Found..." when using .chartdata -
hopefully can help. new , big picture trying alter data on existing chart on ppt slide data excel sheet. simple problem when try create new chart error:
method or data member not found on line set gchartdata = mychart.chartdata
why .chartdata
not option in vba menu following mchart? running office pro plus 2010. have ms powerpoint 14.0 object lirary reference checked. thanks
sub createchart() dim mychart chart dim gchartdata chartdata dim gworkbook excel.workbook dim gworksheet excel.worksheet ' create chart , set reference chart data. set mychart = activepresentation.slides(1).shapes.addchart.chart set gchartdata = mychart.chartdata ' set workbook , worksheet references. set gworkbook = gchartdata.workbook set gworksheet = gworkbook.worksheets(1) ' add data workbook. gworksheet.listobjects("table1").resize gworksheet.range("a1:b5") gworksheet.range("table1[[#headers],[series 1]]").value = "items" gworksheet.range("a2").value = "coffee" gworksheet.range("a3").value = "soda" gworksheet.range("a4").value = "tea" gworksheet.range("a5").value = "water" gworksheet.range("b2").value = "1000" gworksheet.range("b3").value = "2500" gworksheet.range("b4").value = "4000" gworksheet.range("b5").value = "3000" ' apply styles chart. mychart .chartstyle = 4 .applylayout 4 .cleartomatchstyle end ' add axis title. mychart.axes(xlvalue) .hastitle = true .axistitle.text = "units" end 'mychart.applydatalabels ' clean references. set gworksheet = nothing ' gworkbook.application.quit set gworkbook = nothing set gchartdata = nothing set mychart = nothing end sub
Comments
Post a Comment