Discussion :

[HyeJack]

Bonsoir à tous,

Je cherche une méthode pour copier une image d'un groupe de cellules directement sur le disque dur.
Dans les "F.A.Q. Excel", rubrique "24. Les Images", je pensais avoir trouvé la solution avec le code qui est proposé sous la question "Comment exporter toutes les images d'une feuille sur le disque dur ?".

Dans le principe, c'est exactement ce qu'il me faut.
Le problème c'est que la macro marche très bien lorsque je fais du pas à pas avec F8, mais elle ne marche plus lorsque je la déroule en mode normal avec F5.
En fait, l'action "Paste" du bloc de lignes :
With Worksheets("Grille").ChartObjects.Add(0, 0, Pict.Width, Pict.Height).Chart
.Paste
.Export ThisWorkbook.Path & "\" & nom_fic & ".jpg", "JPG"
End With
ne fonctionne pas.

Quelqu'un sait-il pourquoi ? Avez-vous une solution ?

Je vous remercie.

HyeJack

[kiki29]

Salut, je viens de tester ce code de la FAQ et il fonctionne correctement sauf si bien sûr la feuille est vierge.
Sinon tu as la possibilité de sauver en PDF ? Pour cela voir en bas de ce post #1 la partie intitulée Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant

[waard]

Hello tout le Monde,

Moi aussi on m'a remonté ce pb aujourd'hui et après recherche il semble que depuis quelques temps il y'ait eu un changement dans Excel 2016, dans la gestion de la méthode export du chart.
Pour les archives internet franco, en suivant ce lien, vous avez la solution : 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 2016, est-ce que ça marchera sur les versions d'excel antérieures ?... :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ExtractionImagesFeuille()
    Dim Pict As Picture
    Dim Nb As Byte
    Dim ChartObj As ChartObject
 
    For Each Pict In ActiveSheet.Pictures
        If Pict.Name Like "FD" Then
        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 "C:\Userspath\" & 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
        End If
    Next Pict
 
End Sub

[patricktoulon]

re
bonsoir
a priori waard il ne devrait avoir aucunes incompatibilité avec les version antérieures de Excel

juste une question
étant donné que le graphique est sélectionne/activé n'y a t il pas les bordure dans l'image résultante
a vérifier

[waard]

Bonsoir Patrick,

Si ça marche avec les autres versions cool.

Pour le 2e point, bon coup d’œil, concernant le pb de bordure, mon code de démo, est pour les exports d'objet image/forme d'excel, no soucis à ce niveau.
Mais pour les plage cellules, il y'a bien une bordure qui apparait (du moins de l'algo que je connais), pour ça, perso j'utilise un rognage rapide de l'image de la plage, de quelques points sur les bordures en cause et ça part.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        Range("A1:C14").Select
        Selection.Copy
        ActiveSheet.Pictures.Paste.Select
        Selection.ShapeRange.PictureFormat.CropRight = 4 'rogner nombre de point x pour reprendre ancien format résolution
        Selection.ShapeRange.PictureFormat.CropBottom = 4 'rogner nombre de point y pour reprendre ancien format résolution écran

[patricktoulon]

ok je testerais avec 2007 le graph mais il me semble qu'avec le graph activé j'avais la bordure droite et bottom dans l'image