Discussion :

[mkweb]

Bonjour,

Mon code ci dessous énumère toutes les images de ma feuille excel...

Mais je n'arrive pas à enregistrer les images sur le disque dur. La méthode .Export fonctionne pour les chart mais bien sûr je n'arrive pas à en m'en servir pour enregistrer une image en tant qu'image.

Merci de votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Sauve_images()
    Dim img As Object
    Dim numero As Integer
    Dim chemin_image As String
 
    For Each img In Worksheets(1).Shapes 
        chemin_image = "c:\images\img" + Str(numero)
        numero = numero + 1
        img.Export Filename:=chemin_image, Filtername:="JPG"
    Next
End Sub

[bellande]

Bonjour,
Peut-être une piste de cette façon mais ce n'est sans doute pas la meilleure. J'ai en effet utilisé la notion de chart puisque export travaille avec.
Cordialement,

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
19
    Dim img As Shape
    Dim numero As Integer
    Dim chemin_image As String
    Dim co
 
    Set co = ActiveSheet.ChartObjects.Add(0, 0, 500, 500)
    For Each img In Worksheets(1).Shapes
        chemin_image = "c:\images\img" + Str(numero)
        numero = numero + 1
        If img.Type = 13 Then
            img.Copy
            co.Height = img.Height
            co.Width = img.Width
            With co.Chart
                .Paste
                .Export Filename:=chemin_image & i & ".jpg"
            End With
        End If
    Next

[mkweb]

Ok ça marche, merci beaucoup