copie et suppression d'une image

[an.pi]

Bonsoir à tous
Application sur un trombinoscope.
Je désire par macro supprimer toutes les images d'une feuille quelques soient leurs noms.
Puis je désire les remplacer par d'autres images émanant d'une autre feuille.
Chaque image copier doit remplir (complétement) la cellule dans laquelle elle est copiée.
La modification de l’exemple joint me serait fort utile pour ma compréhention.

Merci d’avance.
Annette

 

[skoobi]

Re : copie et suppression d'une image

Bonsoir Annette, bienvenue sur XLD,

la PJ n'est pas passé (doit être < 48.8ko).

 

[Lii]

Re : copie et suppression d'une image

Bonsoir,

...
La modification de l’exemple joint me serait fort utile pour ma compréhension.

quel exemple ? L'as-tu oublié ? En cas d'adjonction d'une pièce jointe, ne pas oublier de cliquer sur "Uploader" et de regarder le résultat avant de fermer la fenêtre (certains fichiers sont refusés).

 

[an.pi]

Re : copie et suppression d'une image

Ok je regarde de suite, je débute sur le forum.Merci

 

[an.pi]

Re : copie et suppression d'une image

En effet mon fichier ne passe pas, trop gros (mal du siècle).Je regarde pour le ré duire si possible.

 

[an.pi]

Re : copie et suppression d'une image

Mon fichier ne passe pas même réduit.Voici l'écriture de la macro à laquelle il faudrait adapter les images(photos) à la grandeur des cellules.
A bientôt

Sub copie_image()
Worksheets("Membres").Range("A1😀4").CopyPicture xlScreen, xlBitmap
Worksheets("Arborescence").Paste _
Destination:=Worksheets("Arborescence").Range("g3")
Sheets("Arborescence").Activate
End Sub

Pour la suppression OK vu sur le forum
Dim sha As Shape
For Each sha In ActiveSheet.Shapes
' If sha.Type = msoPicture Then sha.Delete
Next sha

 

[Lii]

Re : copie et suppression d'une image

Bonjour,

Copie d'une image avec nouvelles dimensions : à tester.

 

[MJ13]

Re : copie et suppression d'une image

Bonjour à tous

A tester pour supprimer les images:

Activesheet.pictures.delete