How to copy a chart by Macro?

[Anonymous]

If there is a chart(CH01) in active sheet, I want to copy this chart to another sheet.

[sparur]

Hi, John.

Try to use function WriteXmlPropertiesFile and CreateObjectFromXmlPropertiesFile.

Examples from API guide:

ActiveDocument.GetSheetObject( "CH01" ).WriteXmlPropertiesFile "C:\MychartProp.xml"
ActiveDocument.ActiveSheet.CreateObjectFromXmlPropertiesFile "C:\MychartProp.xml"

[Anonymous]

Hi sparur.

Thank you very much. It's work fine.

I would like to know how can I do if I want to copy it from Sheet01 to Sheet02 ?

[sparur]

try to use function ActivateSheetByID:

ActiveDocument.ActivateSheetByID "SH02"

and then create new object from xml

[Anonymous]

OK,I will try it.

Thank you!