Bonjour à la communauté
Je souhaiterais incruster un logo (enregistré en tant qu'image png) dans un UserForm
J'ai bien tenté une approche mais sans parvenir au résultat. Cependant une zone grisée apparait sur mon Userform à l'emplacement du Logo (c'est bon signe). Une extension jpg donne le même résultat

Ci dessous mon code. Quand je lance la macro, l'erreur se produit au niveau de la ligne 16. (pour info, je travaille sur Windows10)
Une âme bienfaisante aurait-elle une idée ?

Merci à tous pour votre attention
Ozabois


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub UserForm_Activate()
    Me.Top = 300
    Me.Left = 70
 
    ' Insérer l'image dans la boîte de dialogue
    Dim img As Image
    Set img = Me.Controls.Add("Forms.Image.1", "Image1")
 
    ' Définir les propriétés de l'image
    With img
        .Left = 15
        .Top = 275
        .Width = 40
        .Height = 40
        .PictureSizeMode = fmPictureSizeModeStretch
        .Picture = LoadPicture("D:\Fichiers\Brasserie\Etiquette\Logo BLP.png")
    End With
 
End Sub