XL 2013 envoyer une image d'une feuille excel vers un dossier

[maval]

Bonjour

Je suis a la recherche d'un code pour envoyer une image en Jpg situer sur une feuille vers un dossier.

Je vous remercie d'avance

 

[phlaurent55]

Re : envoyer une image d'une feuille excel vers un dossier

Bonjour Max,

le fichier en retour à sauvegarder dans un répertoire
l'image du cowboy sera sauvegardée dans le même répertoire au format jpg

Merci Jacques Boisgontier pour les exemples donnés sur ton site
Les images et shapes

à+
Philippe

 

[maval]

Re : envoyer une image d'une feuille excel vers un dossier

Bonjour Philippe

Je te remercie beaucoup, pourrais tu me dire comment je doit faire car j'ai pas mal de photo a envoyer sur le répertoire et toute porte le nom de l'acteur.

Bonne Week end de Paques

 

[phlaurent55]

Re : envoyer une image d'une feuille excel vers un dossier

Re,

Sub ExportImage()
  répertoire = ThisWorkbook.Path
  Set f = ActiveSheet
For i = 1 To ActiveSheet.Shapes.Count
  Set img = f.Shapes(i)
  img.CopyPicture
  f.ChartObjects.Add(0, 0, img.Width, img.Height).Chart.Paste
  f.ChartObjects(1).Chart.Export Filename:=répertoire & "\" & ActiveSheet.Shapes(i).Name & ".jpg", FilterName:="jpg"
  f.ChartObjects(1).Delete
Next i
End Sub

à+
Philippe

 

[maval]

Re : envoyer une image d'une feuille excel vers un dossier

Bonjour philippe

Nickel je te remercie beaucoup

Bon dimanche