Image au format PNG
Salut le forum,
est-il possible d'insérer une image au format PNG dans un Active Control et si oui dans lequel?
Merci.
bonjour
un exemple dans un WebBrowser (navigateur Web microsoft)
Private Sub UserForm_Initialize()
Dim S As String
Dim Hauteur As Long, Largeur As Long
Hauteur = WebBrowser1.Height
Largeur = WebBrowser1.Width
S = "C:\Dossier\LeChat.png"
WebBrowser1.Navigate _
"ABOUT:<HTML><HEAD><body><IMG WIDTH=" & Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></HTML>"
End Subbonne journée
michel
Merci pour cet exemple.
Si je dois le faire en code pour parvenir à mes fins, je le ferai. Cependant, dans cet exemple, les images sont dans un fichier dans l'ordinateur.
Peu pratique à mon avis. J'aurais préféré avoir des images insérés dans excel.
bonsoir
Peu pratique à mon avis. J'aurais préféré avoir des images insérés dans excel.
Excel n'est pas prévu pour ça mais si tu aimes les usines à gaz ...
1. si tes images sont insérée dans une feuille de calcul Excel, elles ne seront pas de type PNG.
Dans ce cas tu pourrais utiliser la méthode pastePicture de stephen Bullen.
2. D'autres solutions (hors png):
Stocker tes images un controle imageList, puis les afficher dans un controle image.
Stocker tes images en binaire dans un feuille de calcul et la retransformer pour un affichage dans l'userform (limité à des petites images).
3. Si le type png est impératif, tu stockes l'image en binaire dans la feuille et tu l'affiches dans un WebBrowser sur le même principe que l'exemple précédent.
bonne soirée
michel
Le format PNG n'est pas impératif mais c'est le seul actuellement avec lequel j'ai réussi à avoir une image avec un arrière-plan invisble. Parce que mes images ne sont pas carrés.