XL 2010 VBA - Insérer une image

Titi456 · 15 Février 2023

Bonjour,

J'ai un code qui fonctionne très bien pour pouvoir insérer une image dans le fichier ci-joint (cliquer dans G5:K30) cependant si je reclique sur l'image et que je fais annuler sur l'explorateur de fichiers, l'image initialement insérée disparait. Je souhaiterais pouvoir la garder affichée lorsque je clique sur annuler tout en gardant la possibilité de pouvoir la remplacer si nécessaire.

Pouvez-vous m'aider?

Meilleures salutations,

Thierry

sylvanu · 15 Février 2023

Bonjour Titi,
Si on fait annulé vous chargez l'image Pict qui vaut "", d'où le souci.Je pense qu'il suffit de faire :

VB:

If Pict = False Then    'Aucune image sélectionnée
    Pict = ""
    Exit Sub
Else
    Image1.Picture = LoadPicture(Pict)
    Image1.PictureSizeMode = fmPictureSizeModeZoom
End If

Si pas d'image sélectionnée, on sort sans rien faire.

sylvanu · 15 Février 2023

Bonjour Titi,
Si on fait annulé vous chargez l'image Pict qui vaut "", d'où le souci.Je pense qu'il suffit de faire :

VB:

If Pict = False Then    'Aucune image sélectionnée
    Pict = ""
    Exit Sub
Else
    Image1.Picture = LoadPicture(Pict)
    Image1.PictureSizeMode = fmPictureSizeModeZoom
End If

Si pas d'image sélectionnée, on sort sans rien faire.

Titi456 · 15 Février 2023

Bonjour Sylvanu,

C'est exactement ça. Merci infiniment.

XL 2010 VBA - Insérer une image

Titi456

XLDnaute Junior

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Titi456

XLDnaute Junior

Discussions similaires