Exporter une image

[joums]

Bonjour,

Dans un feuille excel, par macro j'aimerai créer une image puis l'exporter

Dans mon fichier test, j'arrive à créer l'image
mais lorsque j'export l'image, ce sont toutes les images de la feuilles qui sont exportées....

Comment sélectionner juste l'image qui vient d'être créée.
Merci de votre aide
Ci-joint le fichier test

 

[Pierrot93]

Re : Exporter une image

Bonjour joums,

normal, à priori tu boucles sur tous les objets "shapes"...

    For Each Pict In Worksheets("Feuil1").Shapes

pour copier le dernier objet créé, essaye ce code :

With Worksheets("Feuil1")
    .Shapes(.Shapes.Count).CopyPicture
End With

bon après midi
@+

 

[job75]

Re : Exporter une image

Bonjour joums, Pierrot,

On peut aussi mémoriser le nom de la dernière image créée par le 1er bouton :

Private Sub CommandButton1_Click()
Range("A5:E5").CopyPicture
Range("A20").Select
Me.Paste
[COLOR="Red"]ThisWorkbook.Names.Add "Image", Selection.Name 'mémorise dans le nom défini Image[/COLOR]
ActiveCell.Activate
End Sub

Private Sub CommandButton2_Click()
Dim Pict As Object
On Error Resume Next
[COLOR="red"]Set Pict = Me.Pictures([Image])[/COLOR]
Pict.CopyPicture 'copie la dernière image créée
With Me.ChartObjects.Add(0, 0, Pict.Width, Pict.Height).Chart
  .Paste 'colle l'image dans un graphique temporaire
  '.Export "D:\TEST\" & Pict.Name & ".jpg", "JPG"
  .Export ThisWorkbook.Path & "\" & Pict.Name & ".jpg", "JPG"
  .Parent.Delete 'Supprime le graphique
End With
End Sub

Fichier joint.

A+

 

[joums]

Re : Exporter une image

Bonjour à vous,
merci pour votre aide,
pour faire plus simple, je pense alors modifier directement le nom de le nom de l'image
seulement pourquoi avoir mis le code suivant :

.Export ThisWorkbook.Path & "\" & Pict.Name & ".jpg", "JPG"

Autre question... comment rendre l'image copier "plus nette" ?
En effet il semble que la qualité de l'image soit diminuée