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