Error Using the Export Picture Method

[klove1209]

Good afternoon,

Can someone please assist me with getting over this error. I am trying to export a chartspace as a gif image. I keep getting runtime error 430- Class does not support Automation or does not support expected interface.

This is lines of code that i am using

Dim objChartSpace As OWC10.ChartSpac e

Set frm = Forms("frmPivot Chart")

Set objChartSpace = frm.ChartSpace
objChartSpace.C lear
objChartSpace.C harts.Add
Set objPivotChart = objChartSpace.C harts.Item(0)

objChartSpace.E xportPicture "D:\My Documents\My Pictures\chart1 .gif", "gif", 320, 240

Can someone please help me get over this runtime error??

Thanks,

[FishVal]

Good afternoon,

Can someone please assist me with getting over this error. I am trying to export a chartspace as a gif image. I keep getting runtime error 430- Class does not support Automation or does not support expected interface.

This is lines of code that i am using

Dim objChartSpace As OWC10.ChartSpac e

Set frm = Forms("frmPivot Chart")

Set objChartSpace = frm.ChartSpace
objChartSpace.C lear
objChartSpace.C harts.Add
Set objPivotChart = objChartSpace.C harts.Item(0)

objChartSpace.E xportPicture "D:\My Documents\My Pictures\chart1 .gif", "gif", 320, 240

Can someone please help me get over this runtime error??

Thanks,

Hi, there.

Object variable objChartSpace is declared as OWC10.ChartSpac e. Then you try to set it to object being returned by Form.ChartSpace property.
Do you mean an OWC chart form control or ChartSpace property of the form itself?