Astuce : Exporter image Excel vers disque dur

Petite astuce sur Excel, pour l'export d'image (image, image plage cellules, graphique).

Hello tout le Monde,

Depuis quelques temps, en suivant la méthode habituelle d'export d'une image d'Excel vers le disque dur, l'image exportée reste blanche.

Il semble qu'il y'ait eu un changement dans Excel 2016 et peut être les versions antérieures, dans la gestion de la méthode export du Chart.

En suivant ce lien, vous aurez la solution d'origine : https://stackoverflow.com/questions/47174220/exporting-data-and-charts-from-excel-worksheets-to-jpg

Solution d'Axel Richter le code marche si on ajoute le ChartObj.Activate avant le .Paste et le .Export

Démo p/excel, d'un objet image vers le disque dur :

Sub ExtractionImagesFeuille()
    Dim Pict As Picture
    Dim Nb As Byte
    Dim ChartObj As ChartObject

    For Each Pict In ActiveSheet.Pictures
        Pict.CopyPicture 'copie l'image
            Set ChartObj = ActiveSheet.ChartObjects.Add(0, 0, Pict.Width, Pict.Height)
            ChartObj.Activate
            ChartObj.Chart.Paste 'colle l'image dans un graphique temporaire
            ChartObj.Chart.Export "G:\WAARD\" & Pict.Name & ".jpg", "jpg" 'Sauvegarde au format image, dans le même répertoire que ce classeur.
        Nb = ActiveSheet.ChartObjects.Count
        ActiveSheet.ChartObjects(Nb).Delete 'Supprime le graphique
    Next Pict

End Sub

Rechercher des sujets similaires à "astuce exporter image disque dur"