VBA to Copy Chart and Shapes together and paste as picture

[Rahul Malhotra]

Hi, I am looking for the VBA so by clicking on the chart i can copy chart and related shapes and paste to the new worksheet as picture.

Any help would highly be appreciated. Thank you in advance.

Regards,

 

[Rahul Malhotra]

Currently i am using the below script but its not copying the shape.

Sub Chart74_Click()
ActiveSheet.ChartObjects("Chart 74").CopyPicture
ActiveSheet.Shapes("Round Diagonal Corner Rectangle 11").CopyPicture

MsgBox ("Chart copied to clipboard. You can now paste this into another application.")
End Sub

 

[Pecoflyer]

Hi
please warp code with code tags. thx

 

[Rahul Malhotra]

Currently i am using the below script but its not copying the shape.

[COLOR=#333333]Sub Chart74_Click()[/COLOR]
[COLOR=#333333]ActiveSheet.ChartObjects("Chart 74").CopyPicture[/COLOR]
[COLOR=#333333]ActiveSheet.Shapes("Round Diagonal Corner Rectangle 11").CopyPicture[/COLOR]

[COLOR=#333333]MsgBox ("Chart copied to clipboard. You can now paste this into another application.")[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

 

[p45cal]

try:

Sub Chart74_Click()
ActiveSheet.DrawingObjects(Array("Round Diagonal Corner Rectangle 11", "Chart 74")).CopyPicture
[COLOR=#333333]MsgBox ("Chart copied to clipboard. You can now paste this into another application.")[/COLOR]
End Sub

 

[Rahul Malhotra]

Woow its worked perfectly p45cal. Thank you so much.