Skip to main content
cancel
Showing results for 
Search instead for 
Did you mean: 
ssriramin19
Contributor III
Contributor III

export to excel

Hello,

   My requirement is that I have a combo chart.I have created a button for export to excel feature. I have written a macro for export to excel for chart. But when I export only the values from the combo chart is getting exported to excel Then chart is not getting exported to excel.

Please help me how to export the full chart with values when I click the button?

Thanks

Sriram

7 Replies
Gysbert_Wassenaar

If you want to export the chart image then you need to use the CopyBitmapToClipboard function

ActiveDocument.GetSheetObject("CH01").CopyBitmapToClipboard

objExcel.Selection.Paste

Or perhaps qvexcel is what you need.


talk is cheap, supply exceeds demand
ssriramin19
Contributor III
Contributor III
Author

I am getting Object required 'objExcel'

How to resolve the above error?

My macro is given below

sub ExportBitmapExcel2
Set XLApp = CreateObject("Excel.Application")
XLApp.Visible = TRUE
Set XLDoc = XLApp.Workbooks.Add
j = ""
j = "Sheet1"


ActiveDocument.GetSheetObject("CH02").CopyTableToClipboard true
objExcel.Selection.Paste
XLDoc.Sheets(j).Range("A" & 17).Select
XLDoc.Sheets(j).Paste
end sub

 

Can you please tell me how to resolve the above error when exporting chart to excel?

Gysbert_Wassenaar

sub ExportBitmapExcel2

Set XLApp = CreateObject("Excel.Application")
XLApp.Visible = TRUE
Set XLDoc = XLApp.Workbooks.Add

j = "Sheet1"

ActiveDocument.GetSheetObject("CH02").CopyBitmapToClipboard

XLDoc.Sheets(j).Range("A" & 17).Select
XLDoc.Sheets(j).Paste

ActiveDocument.GetSheetObject("CH02").CopyTableToClipboard true

XLDoc.Sheets(j).Range("A" & 37).Select
XLDoc.Sheets(j).Paste

end sub

 


talk is cheap, supply exceeds demand
ssriramin19
Contributor III
Contributor III
Author

The above macro with button works properly in local  system .But when publish the report in the axis point I could not able to see the button .

Can you please help me how to get rid of the error so tha  I would be able to publish the report in the dev access point

ssriramin19
Contributor III
Contributor III
Author

Can anyone help me how to resolve the above issue. This is very urgent for me

Thanks

ssriramin19
Contributor III
Contributor III
Author

The error I am getting is

Macro parse failed .Functionality was lost.

AciveX component can't create object 'Excel.application'

Can anyone please help me how to resolve the above error

Thanks

Not applicable

If you are trying to run the macro without the plug-in, it is a verifed bug.  Install the plug-in, have the user select 'Enable all macros' upon set-up/login, and it will work.