Creating chart problem [Excel 2007]

sektor · August 21st, 2009, 12:13 AM

I wanna create an empty chart with the following code, but it fails. Compiler says "Type mismatch" on "Set ch..." line. What is wrong?

Here's code:

Code:

Dim ch As ChartObject
Set ch = Me.Shapes.AddChart
ch.Chart.SetSourceData Source:=Range("Sheet1!$A$10:$B$14"), PlotBy:= xlColumns
ch.Chart.ChartType = xlColumnStacked

allenm · August 25th, 2009, 07:11 PM

Try this sample:

Code:

Public Sub addchart()

'This sample adds a chart to the current sheet.  The named parameters will hopefully make it easier to understand.
  Dim ch As ChartObject, iLeft As Integer, iTop As Integer, iWidth As Integer, iHeight As Integer
  iLeft = 25
  iTop = 10
  iWidth = 200
  iHeight = 100
  Set ch = ActiveSheet.ChartObjects.Add(iLeft, iTop, iWidth, iHeight)
  ch.Chart.SetSourceData Source:=Range("Sheet1!$A$10:$B$14"), PlotBy:=xlColumns
  ch.Chart.ChartType = xlColumnStacked

End Sub

Hope this helps point in the right direction.