export chart to pdf

[alex_peng]

Hello All,

I am having issues with a really simple task. I have a chart worksheet and am trying to save it to PDF. I tried to define the chart in two ways as worksheet chart and as an chart object.



Dim chrt As Chart
Set chrt = sourcewb.Sheets("CommodityUsageChart") ' Worksheet is a chart
Set myOBJChart = Sourceworkbook.Charts(1) 'chart as an object

Here is the real issue, when I try different variations of export as fixed format I always get syntax errors. Obviously my line construct is incorrect. Any help world be greatly appreciated.

chrt.ExportAsFixedFormat(type:=xlTypePDF, Filename:=ComUsagecHARTPDFFname ,Quality:=xlQualityStandard ,OpenAfterPublish:=True

 

[ZVI]

Hi, try this:

    sourcewb.Sheets("CommodityUsageChart").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ComUsagecHARTPDFFnam, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False  ' or may be True

 

[alex_peng]

Thanks for the response ZVI.

It gave me an error saying no object, so I used the one defined as a chart object and it worked like a charm. Thanks so much for your help.

 

[ZVI]

Glad you found the solution!