Visualiser une photo sur une feuille.

[alexandre33260]

Bonjour, Sur la feuil1, j’ai Parcours n°1 en A1 etc.
Sur la feuille Images, j’ai inséré une photo que j’ai nommé Parcours n°1
J’aurai voulu que lors du passage de la souris ou après un clic sur la cellule A1 (style lien HyperText), s’affiche (coin supérieur gauche de la photo) en B1 le parcours correspondant.
Les photos peuvent être stockées dans un dossier 'nommé Parcours' a part et pas forcément sur le classeur…
Merci pour votre aide.

 

[JCGL]

Re : Visualiser une photo sur une feuille.

Bonjour à tous,

As-tu essayé avec une image dans un Commentaire ?



A+ à tous

 

[alexandre33260]

Re : Visualiser une photo sur une feuille.

Merci JCGL, c'est exactement ce que je voulais, je n'avais pas pensé a cette solution très simple mais vraiment efficace.
Encore merci.

 

[BOISGONTIER]

Re : Visualiser une photo sur une feuille.

Bonsoir,

cf PJ

JB

 

[JCGL]

Re : Visualiser une photo sur une feuille.

Bonjour à tous,

Avec toutes les images dans le même répertoire que le fichier (même nom qu'en colonne A et extension *.png) :

Option Explicit

Sub Images()
    Dim Lig&
    
    On Error Resume Next
    Selection.SpecialCells(xlCellTypeComments).ClearComments
    
    For Lig = 1 To 10
        With Range("A" & Lig)
            '.Comment.Delete
            .AddComment
            .Comment.Text Text:=Range("A" & Lig).Text
            .Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "\" & Range("A" & Lig).Text & ".png"
            .Comment.Shape.Select True
            Selection.ShapeRange.ScaleWidth 2.5, msoFalse, msoScaleFromTopLeft
            Selection.ShapeRange.ScaleHeight 2.2, msoFalse, msoScaleFromTopLeft
            .Comment.Visible = False
        End With
    Next Lig
End Sub

A+ à tous