Exporting a SmartArt graphic

[pbassett]

I dynamically generate Org Charts using the SmartArt CirclePictureHierarchy object, but I am unable to export them as PDF files in code.
I thought I could use the same code as I use to export a Chart, but that didn't work.
I believe exporting Shapes is doable, but I can't capture the code in a macro when I select Design->Convert to Shapes.

 

[Domenic]

The SmartArt is a shape, so you can copy the shape like this...

activesheet.shapes("Diagram 1").CopyPicture

Then you can paste the picture into your chart so that it can be exported. Change the name of the shape accordingly.

Hope this helps!

 

[pbassett]

Thanks! Also the chart initially contained data so I needed to empty it out with

ActiveChart.ChartArea.Clear