Comment extraire des images d’une feuille Excel ?

Vous disposez peut-être d’un classeur Excel avec lequel vous gérer déjà votre stock.

Ce classeur contient les images des produits que vous désirez importer dans GSE sous Excel ou GSE-Web.

Mais comment extraire des centaines d’images d’une feuille Excel rapidement ?

Grâce à cette macro qui extrait toutes les images de la feuille active dans le dossier ‘GSE-Pictures’ qu’il vous faudra créer.

Sub export_images()
    For Each oShape In ActiveSheet.Shapes
        strImageName = ActiveSheet.Cells(oShape.TopLeftCell.Row, 3).Value
        If strImageName = "" Then GoTo suit
        oShape.Select
        Application.Selection.CopyPicture
        Set oDia = ActiveSheet.ChartObjects.Add(0, 0, oShape.Width, oShape.Height)
        Set oChartArea = oDia.Chart
        oDia.Activate
        With oChartArea
            .ChartArea.Select
            .Paste
            .Export (ThisWorkbook.Path & "\GSE-Pictures\" & strImageName & ".gif")
        End With
        oDia.Delete
suit:
    Next
    MsgBox "Traitement terminé !", vbOKOnly
End Sub