VBA : Word : Image à afficher dans un userform

Fermé
kiricouille0 Messages postés 4 Date d'inscription samedi 10 novembre 2018 Statut Membre Dernière intervention 28 décembre 2018 - 28 déc. 2018 à 15:22
m@rina Messages postés 20082 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 26 avril 2024 - 29 déc. 2018 à 01:54
Bonjour à tous,

J'aimerais afficher une image quand j'appuie sur une case à cocher, mais ça ne marche pas.
Voici le code :

Private Sub CheckBox6_Click()

Dim macase As Object, fichier As String
Set macase = Me.CheckBox6
If macase = True Then
fichier = " ... \gege.jpg"
If Dir(fichier) = "" Then
Image1.Picture = LoadPicture("")
Else
Image1.Picture = LoadPicture(fichier)
End If
macase = False
End If


Voici le userform :



Voici les caractéristiques de la zone dessin du userform :


En vous remerciant.

1 réponse

m@rina Messages postés 20082 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 26 avril 2024 11 272
29 déc. 2018 à 01:54
Bonjour,

Je ne sais pas de quelle case à cocher tu parles... Hier c'était un contrôle ActiveX dans le document, aujourd'hui tu parles de Userform, mais je ne vois pas de case à cocher...

m@rina
0