How to animate shapes and export as picture(s)?

[Waimea]

Hi,

I am using excel to color shapes in different colors based on values in a column.

I am trying to export the collection of shapes into a picture (which I would like to create an animated gif from).

1. How can I offset the data range so that collection of shapes get different colors based on column B,C,D etc.
I want the collection of shapes to first get data from column B, then column C etc.

2. How can I export the collection of shapes into a picture?

 

[Waimea]

Public Sub SaveAsPicture_Example()
 
 ThisDocument.Pages(1).Shapes(1).SaveAsPicture "filename.jpg"
 
End Sub

I can't get this code to work?

I have one large shape and the large shape contains smaller shapes.

I want to export the large shape into a picture in C:\Reports\filename.gif

 

[Yongle]

2. How can I export the collection of shapes into a picture?

Group the shapes and then use something like this which works for me
- amend to suit your own requirement

Sub SaveJpg()
    Dim ws As Worksheet, chtObj As Object
    Set ws = ActiveSheet
       
'Select and copy group
    ws.Shapes.Range(Array("Group 5")).Select
    Selection.CopyPicture
'Create temporary chart
    Set chtObj = ws.ChartObjects.Add(1, 1, Selection.Width, Selection.Height)
'Paste the Group into chart
    chtObj.Select
    chtObj.Chart.Paste
'Export image
    chtObj.Chart.Export fileName:="C:\Test\testShape.jpg", Filtername:="JPEG"
'Tidy up
    chtObj.Delete
    Set chtObj = Nothing
End Sub

Original shapes in worksheet

Saved jpeg

 

[Waimea]

Hi Yongle,

thank you for your reply!

Your code does what I want and I amended it to suit my needs.

Thank you!

 

[Waimea]

I have another question, how would I change the border to 0 and the background color of the chart to RGB(248, 248, 248) ?