inserer automatiquement une image grace à son lien

[Basu]

bonjour

j'ai besoin de votre aide pour insérer une image

alors....je vous explique
j'ai un userform qui me crée un lien de l'image que j'ai sélectionner et
je récupère ce lien sur une feuille excel (normal me direz vous 😀)

aujourd'hui j'arrive a l’insérer via une macro de manière semi manuel (clique sur la cellule puis exécution macro) pas super pratique comme système

ma question et comment inserer automatiquement à la place de ce lien la photos
et petit plus (mais il me semble que c'est pas realisable ou difficilement) si on peut les compresser au passage

merci de votre aide

 

[Fred0o]

Re : inserer automatiquement une image grace à son lien

Bonjour basu,

Nous y'en a pas comprendre si toi y'en a pas mettre un fichier d'explication.

En bref, ce qui est clair pour toi, puisque c'est TON problème, n'est pas inné pour nous qui découvrons ce que tu veux faire et ce qui ne fonctionne pas comme tu le voudrais. Et là, j'avous n'avoir rien capté.

Merci de nous expliquer plus clairement le souci et surtout de nous mettre un fichier exemple avec ce que tu as et ce que tu voudrais.

A+

 

[Basu]

Re : inserer automatiquement une image grace à son lien

bonjour désoler pour l'oublie

j'avais joint dans mon dernier message mais la PAS!!

 

[Basu]

Re : inserer automatiquement une image grace à son lien

alors j'avance un peu

Sub Bouton10_QuandClic()
ActiveSheet.Pictures.Insert([B10]).Select
With Selection.ShapeRange
.LockAspectRatio = msoTrue 'conserver les proportion
.Height = 90 'hauteur de l'image = hauteur des lignes - 2
.Left = 1 'à gauche colonne A (sinon tu calcules avec la largeur de colonne des colonnes
End With
End Sub

un petit bouton m'affiche cette macro (pas automatique comme demander mais au final mon fichier sera moins gros, que cest lien sont sur plusieur feuille sa les geres independament

mais je cherche a ne pas reafficher l'image si elle est deja inserer
si vous avez une idee
merci