XL 2016 exporter des images dans un dossier

Wissem · 25 Janvier 2024

Bonjour,
j'ai un classeur qui contient plusieurs feuilles qui contient des images dont leurs noms dans des cellules différents.
je souhaite faire une macro vba qui me permet d'enregistrer les images dans un dossier avec leurs nom spécifier dans la cellule:
exemple:
le nom de la première image est dans A2 et la deuxième C2 et 3eme F3 et puis A7 ... A12 et A17

cijoint un fichier pour exemple

fanch55 · 29 Janvier 2024

Bonjour,
Le code ci-dessous devrait répondre à votre demande :

VB:

Sub ExportImg()
    Dim Img As Picture, Nom As String
    For Each Img In ActiveSheet.Pictures
        Img.CopyPicture
        Nom = Img.TopLeftCell.Offset(-1, -1)
        Nom = IIf(Nom = "", Img.Name, Nom)
        Debug.Print "nom de l'image en " & Img.TopLeftCell.Address & " : " & Nom
        With ActiveSheet.ChartObjects.Add(0, 0, Img.Width, Img.Height)
            .chart.Paste
            .chart.Export ThisWorkbook.Path & "\" & Nom & ".jpg"
            .Delete
        End With
    Next
End Sub

Exemple pour la réf 012016: si l'image est bien positionné sur la cellule B3, elle aura comme nom ce qui est en cellule A2 sinon elle conservera son nom d'image .

XL 2016 exporter des images dans un dossier

Wissem

XLDnaute Junior

Pièces jointes

fanch55

XLDnaute Barbatruc

Discussions similaires