Astuce : Exporter image Excel vers disque dur

Pour écrire et partager des tutoriels et des astuces (Excel, Calc et Google Sheets uniquement)
Avatar du membre
waard
Contributeur
Contributeur
Messages : 436
Appréciations reçues : 16
Inscrit le : 9 février 2015
Version d'Excel : 2013, 2016, FR
Téléchargements : Mes applications

Message par waard » 8 novembre 2017, 23:06

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.
:arrow: 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/471 ... ets-to-jpg
:idea: Solution d'Axel Richter le code marche si on ajoute le ChartObj.Activate avant le .Paste et le .Export

::B- 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
:wink:
"One and yet a mass"
COHENNY Tristan - Projet MYRMIDON
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message