Export multiple grouped objects / shapes to files at once

[ollyhughes1982]

Hi all,

I have a file with quite a lot of grouped objects in, and I'd like to be able to export these to a folder. is there some VBA or something that i can use to do this?

I have many of them (hundreds) and don't want to right-click and Save As Picture for all of them, if I can at all help it!

I'd also like to do this from a Word file - would it be the same?

I'm on a Mac.

Thanks in advance,

Olly.

 

[Domenic]

I don't have a Mac version of Office, but you should be able to save your document as a "Web Page", which would export all images (pictures, shapes, charts, etc) to a folder all at once. Here's an example, using Excel. The same thing can be done in Word.

How to Export All Images at Once from Excel

How to Export All Images at Once from Excel - Excel is a powerful tool that offers a variety of functions for data manipulation and analysis. Supposing you have a lot of pictures in your workbook and want to save them to a specific folder at a time, usually, you can copy and paste the pictures...

www.tutorialspoint.com

Hope this helps!

 

[ollyhughes1982]

I don't have a Mac version of Office, but you should be able to save your document as a "Web Page", which would export all images (pictures, shapes, charts, etc) to a folder all at once. Here's an example, using Excel. The same thing can be done in Word.

How to Export All Images at Once from Excel

How to Export All Images at Once from Excel - Excel is a powerful tool that offers a variety of functions for data manipulation and analysis. Supposing you have a lot of pictures in your workbook and want to save them to a specific folder at a time, usually, you can copy and paste the pictures...

www.tutorialspoint.com

Hope this helps!

Ah yes, I tried that method thanks, but it ungroups all the grouped shapes / objects into their component parts. I need the grouped shapes / objects to remain grouped.

 

[ollyhughes1982]

I found this (VBA, below) on another Microsoft forum, but it is for PowerPoint. I wonder if someone could adapt this for Excel / Word on the Mac. My VBA skills are limited, at best:

Sub ExportShapesAsPNGs()    Dim sld As Slide    Dim shp As Shape    Dim path As String    Dim name As String    Dim i As Integer    path = "C:\Users\Username\Desktop\"    For Each sld In ActivePresentation.Slides        For Each shp In sld.Shapes            If shp.Type <> msoPlaceholder Then                i = i + 1                name = shp.Name & ".png"                shp.Export path & name, ppShapeFormatPNG            End If        Next shp    Next sld    MsgBox i & " shapes exported as PNGs."End Sub

This was found here: How do I export multiple objects and groups as individual PNGs all at once in PPT? - Microsoft Q&A

Thanks.

 

[Domenic]

That's interesting, when I save the workbook as a Web Page, it exports the grouped shapes as one image, in addition to separate images. In any case, since no one with a Mac version of Excel has posted a solution, see if this helps...

Sub ExportShapesAsPNGs()
    
    Dim ws As Worksheet
    Dim chrtObj As ChartObject
    Dim shp As Shape
    Dim path As String
    Dim name As String
    Dim i As Integer

    path = "C:\Users\Username\Desktop\"

    For Each ws In ActiveWorkbook.Worksheets
        For Each shp In ws.Shapes
            i = i + 1
            name = shp.name & ".png"
            shp.CopyPicture xlScreen, xlPicture
            Set chrtObj = ws.ChartObjects.Add(Left:=0, Top:=0, Width:=shp.Width, Height:=shp.Height)
            With chrtObj
                .Activate
                With .Chart
                    .ChartArea.Format.Line.Visible = msoFalse
                    .Paste
                    .Export Filename:=path & name
                End With
                .Delete
            End With
        Next shp
    Next ws
    
    MsgBox i & " shapes exported as PNGs."
    
End Sub

Hope this helps!

 

[ollyhughes1982]

That's interesting, when I save the workbook as a Web Page, it exports the grouped shapes as one image, in addition to separate images. In any case, since no one with a Mac version of Excel has posted a solution, see if this helps...

Sub ExportShapesAsPNGs()
  
    Dim ws As Worksheet
    Dim chrtObj As ChartObject
    Dim shp As Shape
    Dim path As String
    Dim name As String
    Dim i As Integer

    path = "C:\Users\Username\Desktop\"

    For Each ws In ActiveWorkbook.Worksheets
        For Each shp In ws.Shapes
            i = i + 1
            name = shp.name & ".png"
            shp.CopyPicture xlScreen, xlPicture
            Set chrtObj = ws.ChartObjects.Add(Left:=0, Top:=0, Width:=shp.Width, Height:=shp.Height)
            With chrtObj
                .Activate
                With .Chart
                    .ChartArea.Format.Line.Visible = msoFalse
                    .Paste
                    .Export Filename:=path & name
                End With
                .Delete
            End With
        Next shp
    Next ws
  
    MsgBox i & " shapes exported as PNGs."
  
End Sub

Hope this helps!

Thanks, I’Il give it a try tomorrow, but I’m thinking that the filepath bit likely won’t work on a Mac, as they’re different?

 

[ollyhughes1982]

Thanks, I’Il give it a try tomorrow, but I’m thinking that the filepath bit likely won’t work on a Mac, as they’re different

This worked in Excel, but not Word. Thanks