Help with with exporting Combo Chart to Excel

[#1]

Hi All

I know how to export data to excel in a table format however I'm trying to find a way to export a Combo chart I have created to excel as a bitmap or JPEG

I found a different post explaining how to use a Marco

Sub ExportGraph()

Dim vSheet

Set XLApp = CreateObject("Excel.Application")

XLApp.Visible = TRUE

Set XLDoc = XLApp.Workbooks.Add

vSheet = ""

vSheet = "Sheet1"

ActiveDocument.GetSheetObject("CH245").CopyBitmapToClipboard 'Copy the charts

XLDoc.Sheets(vSheet).Range("A" & 1).Select

XLDoc.Sheets(vSheet).Paste

Set XLDoc = Nothing

Set XLApp = Nothing

End Sub

However I can't get this to work as the line Set XLApp = CreateObject("Excel.Application") fails

Any help would be greatly appreciated

Regards

Mike

[robert_mika]

Left bottom of the "Edit Module" Screen.

Change the "Requested Module Security"

to System Access

and "Current Local Security" to

Allow System Access

[#3]

Hi Robert

Thanks for your help I've got it to work

Can I just check something, I've now changed these security settings in my document, when I upload this document to the production server will it retain these settings? I've seen the document properties there is a Macro Overide Security flag

[robert_mika]

Honestly - I do not know.

From experience I do know that most of the macros does not work in production environment due to security.

Maybe somebody else shed some light...