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

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Mars 2016

• #2

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

 

Pièces jointes

• 111.xlsm

  40.8 KB · Affichages: 40
• 111.xlsm

  40.8 KB · Affichages: 41

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Mars 2016

• #3

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 27 Mars 2016

• #4

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

Re,

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 27 Mars 2016

• #5

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

Bonjour philippe

Nickel je te remercie beaucoup

Bon dimanche

 

Pièces jointes

• ImageCopy.xlsm

  116.3 KB · Affichages: 38

Dernière édition: 29 Mars 2016

Vote positif 0 Vote négatif