copie et suppression d'une image

skoobi

XLDnaute Barbatruc

• 12 Juin 2008

• #2

Re : copie et suppression d'une image

Bonsoir Annette, bienvenue sur XLD,

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

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 12 Juin 2008

• #3

Re : copie et suppression d'une image

Bonsoir,

an.pi à dit:

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

Cliquez pour agrandir...

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).

 

Dernière édition: 12 Juin 2008

Vote positif 0 Vote négatif

A

an.pi

Guest

• 12 Juin 2008

• #4

Re : copie et suppression d'une image

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

 

Vote positif 0 Vote négatif

A

an.pi

Guest

• 12 Juin 2008

• #5

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.

 

Vote positif 0 Vote négatif

A

an.pi

Guest

• 12 Juin 2008

• #6

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

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 13 Juin 2008

• #7

Re : copie et suppression d'une image

Bonjour,

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

 

Pièces jointes

• CopieImageDansCellule.zip

  14.6 KB · Affichages: 30

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 13 Juin 2008

• #8

Re : copie et suppression d'une image

Bonjour à tous

A tester pour supprimer les images:

Activesheet.pictures.delete

 

Vote positif 0 Vote négatif