Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 exporter des images dans un dossier

Wissem

XLDnaute Junior
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
 

Pièces jointes

  • Classeur1.xlsx
    150.4 KB · Affichages: 7

fanch55

XLDnaute Barbatruc
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 .
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…