agrandir des images dans des cellules et les extraires en .jpeg

[moff]

Bonjour a tous

et H.E.L.P..

apres plusieurs heures sur le forum je ne solutionne pas mon probleme:

J ai des fichiers excel avec des centaines de photos.

dans la colonne "A" il y a les images mais de petite taille.
dans la colonne "B" une reference

je veux extraire les images en .jpeg vers un dossier avec comme nom de fichier la colonne "B"

j ai trouvé cette macro qui fonctionne a merveille:

Sub extraire_img()
Dim sh As Shape, img As Object
Dim ndf As String
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 1) <> "B" Then
ndf = Range(sh.TopLeftCell.Address).Offset(0, 1).Text
ndf = ActiveWorkbook.Path & "\" & ndf & ".jpg"
sh.CopyPicture xlScreen, xlPicture
Set img = ActiveSheet.ChartObjects.Add(2, 2, sh.Width, sh.Height)
img.Chart.Paste
img.Chart.Export ndf, "JPG"
img.Delete
End If
Next sh
End Sub

mais... il en faut bien un!!!
l image perd toutes ses qualités; j ai l impression qu'il s agit ici d'une sorte de capture d'ecran.
alors pour garder une bonne qualité d image, je cherche une macro a executer en premier pour doubler la taille de mes image dans les cellules.

je les extraits apres, plus grandes donc de meilleures qualitée.

merci d avance

 

[Hulk]

Re : agrandir des images dans des cellules et les extraires en .jpeg

Slt Moff,

Si tes images, d'origine, sont de petites tailles, chaque fois que tu les agrandiras, la qualité sera moindre !

De plus, le mieux pour te répondre, c'est que tu déposes ton fichier sans données confidentielles et avec quelques images.

À te relire.

 

[moff]

Re : agrandir des images dans des cellules et les extraires en .jpeg

salut

il est vraix qu un exemple est plus parlant.....
voila un fichier avec 2 photos.... si je triple la taille de la photo avant export images c est ok
si je triple la taille de fichier jpeg apres export.... c est deguelasse!!!!!
sachant que sur les fichiers d origine il y a un peu plus de mille photo..... il faut automatiser....

 

[BOISGONTIER]

Re : agrandir des images dans des cellules et les extraires en .jpeg

Bonjour,

Utiliser Excel2007 (qualité des export meilleure que sur 2003)

JB

 

[moff]

Re : agrandir des images dans des cellules et les extraires en .jpeg

Bonjour JB

J ai pas compris??!!

 

[moff]

Re : agrandir des images dans des cellules et les extraires en .jpeg

salut hulk

excuse moi de te relancer....mais peux tu me guider dans mon probleme d agrandissement,d images?

merci d avance