problème sur code VBA

[MASSJIPE]

Bonjour
J'utilise le code suivant sur un classeur vierge pas de soucis, mais je mets le code sur un autre classeur j'ai un soucis sur le nf
Private Sub CommandButton1_Click()
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If nf = False Then Exit Sub
With ActiveCell
.ClearComments
.AddComment
.Comment.Shape.Fill.UserPicture nf
.Comment.Shape.Height = 250
.Comment.Shape.Width = 250
.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
End With
End Sub
Cordialement

 

[natorp]

Re : problème sur code VBA

Bjr Massjipe

Quel souci as-tu ? peux-tu joindre le fichier en souci ?

Cordialement, Gérard

 

[MASSJIPE]

Re : problème sur code VBA

Bonjour
Le soucis est pour mettre une photo dans commentaire quelque soit la cellule (je clic sur une cellule et ensuite je clic la commande bouton)
Merci

 

[phlaurent55]

Re : problème sur code VBA

Bonjour à tous,

un lien qui contient une source d'exemples
Les images et shapes

à+
Philippe