Discussion :

[Dav1961]

Bonsoir à tous,

Est-ce qu'il y a une possibilité d'insérer une image PNG dans une UserForm sous Excel ?
En direct, j'ai vu que cela n'était pas possible, mais peut-être existe-t 'il un autre moyen.
Merci par avance pour votre aide

[MarcJinger]

Pas que je sache... Rien d'un tout petit peu sérieux faisable graphiquement sur un formulaire, hélas....

[Dav1961]

Bonsoir MarcJinger

Merci pour votre réponse.
Eh bien tant pis, je vais m'arranger autrement.
Bonne fin de journée

[jurassic pork]

Hello,

Eh bien tant pis, je vais m'arranger autrement.

Il faut attendre d'autres avis avant de mettre la discussion en résolu (alors que ce n'est pas résolu).
En fait c'est possible avec la bibliothèque gdiplus ( c'est ce que j'utilise ici) et son module de classe VBA clGdiplus (Voir ici)

Gdi+ supporte notamment les formats BMP, GIF, JPEG, PNG, TIFF et EMF.

Ami calmant, J.P

[Philippe Tulliez]

Bonjour J.P,
Je ne connaissais pas cette bibliothèque

[jurassic pork]

Hello Philippe

Bonjour J.P,
Je ne connaissais pas cette bibliothèque

Le souci c'est que le module de classe VBA qui l'interface est volumineux ( > 600Koctets). Bien sûr on peut le réduire en utilisant que ce qui nous intéresse dedans mais cela risque d'être pénible ou alors le mettre dans les macros personnelles.
Voici le code pour charger une image png dans le contrôle image d'un formulaire :

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
Private Sub CommandButton1_Click()
Dim oGdi As clGdiplus
Set oGdi = New clGdiplus
Dim strFile As String
strFile = Application.GetOpenFilename(FileFilter:="png files (*.png*), *.png*", Title:="Choisir un fichier PNG", MultiSelect:=False)
' Chargement de l'image
If oGdi.LoadFile(strFile) Then
    ' Chargement réussi
    Debug.Print "Format :", oGdi.ImageFormatText
    Debug.Print "Taille :", oGdi.ImageWidth & " x " & oGdi.ImageHeight
    oGdi.Repaint Me.Image1
Else
    ' Erreur de chargement
    MsgBox "Erreur au chargement de l'image"
End If
End Sub

Ami calmant, J.P

[MarcJinger]

Bonsoir MarcJinger

Merci pour votre réponse.
Eh bien tant pis, je vais m'arranger autrement.
Bonne fin de journée

Merci good luck !