Copie .jpg d'une feuille à l'autre

Bonsoir,

Pour tenir mon pourcentage de question (gag).

Comment faire pour copier une photo d'une feuille à l'autre sans être obligé de corriger le positionnement.

exemple d'écriture générée par création de macro :

 Sheets("Membres").Select
    ActiveSheet.Shapes("Picture 1").Select
    Selection.Copy
 Sheets("Arborescence").Select
    Range("K5:N5").Select
    ActiveSheet.Paste

La copie est décalée par reapport à K5:N5 (Grandeur de la photo).

Une correction dans la création de la macro s'impose exemple:

    Selection.ShapeRange.IncrementLeft -6#
    Selection.ShapeRange.IncrementTop -10.5

Comment faire pour ne pas à avoir de repositionnement?

Merci d'avance.

Annette

Ce que je te recommande c'est de ne spécifier qu'une seule celulle dans la feuille d'arrivée.

Range("K5").select

et non pas

Range("K5:N5").select

L'ancrage de l'image se faisant par rapport à une cellule

Cordialement

Bonsoir

Malgré mes essais , je n’arrive pas à positionner les photos au bons endroits.

Un autre problème se pose dans ma procédure.

Lorsque je change de photos (ce qui arrivera suite à une assemblée Générale) ma procédure ne reconnaît plus les photos changées.

Puis je t’envoyer mon fichier sur ton e-mail (trop gros sur le forum).

Annette

Bonjour,

un petit bout d'explication sur le positionnement !

https://www.excel-pratique.com/~files/doc/image.zip

mes connaissances ne vont pas + loin.

amicalement

Claude.

Bonjour,

J'ai simplifié la procédure à un exemple,

Comment écrire les lignes de commande pour je puisse :dans la feuille Arborescence:

1 ) supprimer la photo existante dans la feuille Arborescence.

2 ) remplacer cette photo( au bon endroit et à la bonne taille )par la nouvelle photo.

3 ) comment gérer les changements de noms des pictures dans la procédure.

Amitiés

Annette

https://www.excel-pratique.com/~files/doc/Membresdubureau.xls

Bonsoir,

Merci à Claude

Après recherches et plusieurs essais, la copie de photos se fait comme je le désire.

Question ; Est ce une bonne méthode ?.

Par contre je n'ai toujours pas trouvé la solution pour effacer les anciennes photos.

Quelle est la solution pour effacer (par macro) les photos sans avoir à modifier la procédure?

Merci et à bientôt

Annette

Ci joint procédure d'essai actuelle .

https://www.excel-pratique.com/~files/doc/8oN4Mimage.zip

Ne maîtrisant « pas encore » le VB je n’arrive pas à exécuter la bonne procédure.

La modification de l’exemple joint me serait fort utile.

https://www.excel-pratique.com/~files/doc/d3aH9exemple.zip

Désirs : Copie de la photo (fait) en adaptant la taille à la cellule (non fait)

Suppression de la photo quelque soit son nom

NB : Il y aura dans mon application plusieurs photos (Trombinoscope)

Merci d’avance.

Annette

Bonsoir

Pour supprimer toutes les images d'une feuille quelque soient leurs noms.J'ai trouvé la macro suivante.

Sub suppression_images()
Dim sha As Shape
For Each sha In ActiveSheet.Shapes
    If sha.Type = msoPicture Then sha.Delete
Next sha
End Sub

Il reste donc à trouver la macro qui étalonnera les images à la taille de leur cellule.

A bientôt sur le forum

Annette

Salut le forum

Annette ton Zip est vide, il ne contient pas de fichier

an.pi a écrit :

La modification de l’exemple joint me serait fort utile.

https://www.excel-pratique.com/~files/doc/d3aH9exemple.zip

Mytå

Bonne nuit

https://www.excel-pratique.com/~files/doc/TWCXjtest.xls

A plus tard, je vais me coucher

Annette

Salut le forum

Annette, une version d'essai avec les deux premiers noms (Président et Vice-Président)

Le fichier : Membres du Bureau

Mytå

Bonsoir,

Je reviens de vacances et c'est avec une grande satisfaction que je trouve sur le forum une réponse écrite par "Mytå ".

Un grand merci pour cette réponse trés précise.

Pour faciliter la recherche des photos dans cette application il me faudrait une précision supplémentaire.

Comment arriver directement dans le dossier des photos des membres du club?

Merci et à bientôt.

Annette

Salut le forum

Ajoute l'instruction ChDir à la macro

Public Sub ChoixImage()

    'Affiche la boîte de dialogue "Ouvrir"
    ChDir "C:\Excel"
    Fichier = Application.GetOpenFilename("Fichiers Images (*.jpg; *.gif),*.jpg;*.gif")

End Sub

Mytå

Salut Mytå

Tu est un chef, une question = une réponse.

Mon application est donc terminée comme je l'avais analysée.

Merci encore pour les réponses précises .

Sans elles j'aurai perdu beaucoup de temps "et probablement encore plus"..

Au plaisir.

Annette

Salut le forum

Au plaisir de se croiser sur une autre ficelle Annette

Mytå

Bonsoir

Au plaisir de se croiser sur une autre ficelle.

J'aimerai connaître le sens exact de ficelle su le net

A bientôt

Annette