XL 2019 Incorporer gif animé dans userform

T

Tempus

XLDnaute Junior
Bonjour le forum, bonjour à tous,

Je souhaiterais incorporer dans mon userform un gif animé.

J'ai testé quelques bout de code vb mais sans succès,voir ci dessous.
Mon fichier excel est en pièce jointe avec le gif.

Merci à vous.

'Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
'Me.WebBrowser1.Navigate2 "E:\gp.gif"
'End Sub
'Private Sub UserForm2_Initialize()
'WebBrowser1.Navigate _
' "about:<html><body scroll='no'>" & _
' "<img src='C:\gp.gif'></img></body></html>"
'DoEvents
'End Sub
'Private Sub WebBrowser1()
'Worksheet_Activate()
'WebBrowser1.Navigate "E:\gp.gif"
'End Sub

'Sub Gif()
' WebBrowser1.Navigate "C:\gp.gif"""
'End Sub
'Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
'WebBrowser1.Navigate "E:\gp.gif"
'End Sub
'Private Sub UserForm2_Initialize()
'WebBrowser1.Navigate _
'"about:<html><body scroll='no'>" & _
'"<img src='E:\gp.gif'></img></body>"
'End Sub


'StatusTextChange(ByVal Text As String)
'Private Sub UserForm2_Initialize()
'WebBrowser1.Navigate _
' "about:<html><body scroll='no'>" & _
' "<img src='C:\gp.gif'></img></body></html>"
'DoEvents
'End Sub
 

Pièces jointes

  • Tempus- gif à incorporer.xlsm
    67.5 KB · Affichages: 26
  • gp.gif
    gp.gif
    94.4 KB · Affichages: 27
Solution
patricktoulon
a ben c'est un exemple complet tu peux tres bien te passer de la boite de dialogue et tout y couinti

demo a l'ouverture
VB: 
Private Sub UserForm_Activate()
    Dim fichier, maxWidth&, PToPx#, H&
    With ActiveWindow.ActivePane
        PToPx = (.PointsToScreenPixelsY(72) - .PointsToScreenPixelsY(0)) / 72
    End With
    maxWidth = 100
    fichier = "C:\Users\polux\DeskTop\gp.gif" ' change le chemin de ton fichier ici
    With WebBrowser1
        .Navigate "about:blank"
        .Document.write "<body><img></img/></body>"
        .Document.body.Style.margin = 0
        With .Document.getelementsbytagname("IMG")(0)
            .src = fichier
            .Style.Width = maxWidth & "px"
            H = .offsetheight
        End With...
Trier par date Trier par votes
Eric C

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour Tempus

Après avoir placé un WebBrowser sur ton USF, tu places ce code dans l'Initialize de ton USF:
VB: 
' Insérer un Gif Animé dans l'userform
' Vériland Octobre 2003
Dim Gif As Variant
Gif = "C:\a\gp.gif"              ===> chemin à adapter
WebBrowser1.Navigate Gif

Il te faudra également réduire les dimensions de ton gif qui sont trop grandes pour que celui-ci soit placé en temps que logo (Si les dimensions sont trop importantes, alors les scrollbars de ton WebBrowser apparaîtront.
Bon fin de journée à toutes & à tous et protégez vous.
Eric c
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
bonjour
teste cela
met un webbrowser et un bouton dans un userform c'est tout!!!

la taille du webbrowser on s'en fou!!!on va l'ajuster automatiquement

et colle lui ce code
VB: 
Private Sub CommandButton1_Click()
    Dim fichier, maxWidth&, PToPx#, H&
    fichier = Application.GetOpenFilename("images Files (*.jpg;*.png;*.gif;*.tiff), *.jpg;*.png;*.gif;*.tiff", 1, "ouvrir un fichier")
    maxWidth = 100
    With ActiveWindow.ActivePane
        PToPx = (.PointsToScreenPixelsY(72) - .PointsToScreenPixelsY(0)) / 72
    End With
    With WebBrowser1
        .Document.body.Style.margin = 0
        With .Document.getelementbyid("image1")
            .src = fichier
            .Style.Width = maxWidth & "px"
            H = .offsetheight
        End With
        .Width = maxWidth / PToPx + 15
        .Height = H / PToPx
    End With
End Sub

Private Sub UserForm_Activate()
    With WebBrowser1
        .Navigate "about:blank"
        .Document.write "<body><img id=image1></img/></body>"
    End With
End Sub

voila clique sur ton bouton et choisi un gif ou jpeg ou png ou tiff
et voila
le webbrowser fera 100 pixel/ptopx (ptopix=conversion point/pixel)de large et son height sera pris par le offsetheight de l’élément image1 du document html converti aussi en point
démonstration
au départ le userform est comme ca
Capture.JPG


a l'arrivée c'est comme ca
demo5.gif


voila ;)
 
Vote positif 1 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
a ben c'est un exemple complet tu peux tres bien te passer de la boite de dialogue et tout y couinti

demo a l'ouverture
VB: 
Private Sub UserForm_Activate()
    Dim fichier, maxWidth&, PToPx#, H&
    With ActiveWindow.ActivePane
        PToPx = (.PointsToScreenPixelsY(72) - .PointsToScreenPixelsY(0)) / 72
    End With
    maxWidth = 100
    fichier = "C:\Users\polux\DeskTop\gp.gif" ' change le chemin de ton fichier ici
    With WebBrowser1
        .Navigate "about:blank"
        .Document.write "<body><img></img/></body>"
        .Document.body.Style.margin = 0
        With .Document.getelementsbytagname("IMG")(0)
            .src = fichier
            .Style.Width = maxWidth & "px"
            H = .offsetheight
        End With
        .Width = maxWidth / PToPx + 15
        .Height = H / PToPx
    End With
End Sub
c'est toujours toi qui décide la taille de ton logo dans le userform avec maxwidth
quand on redim un tag (IMG) non stylé dans un document html c'est comme les shapes pour excel il y a le lockaspectratio qui fait que quand tu redim un coté le reste suit proportionnellement
donc le principe est simple tu redim le width en pixel et tu récupère le offsetheight converti en point qui servira a redimensionner le webbrowser en hauteur
 
Dernière édition:
Vote positif 0 Vote négatif
Solution

Discussions similaires

F
  • Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
357
Francky79
F
AIXELS
  • Question
XL 2019 Problème avec WeBrowser
Réponses
5
Affichages
569
AIXELS
AIXELS
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
667
bérylion
B
B
  • Question
XL 2019 Mail d'alerte automatique contenant tableau si condition remplie
Réponses
2
Affichages
759
fanch55
fanch55
D
  • Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
1 K
Dranreb
Dranreb
Flown720
  • Résolu(e)
XL 2013 Affichage d'un userform avec GIF animé pendant l’exécution d'une macro
2 3
Réponses
30
Affichages
11 K
phil77515
P
coripdc
  • Question
XL 2010 désactiver message à l'ouverture de fichier PDF dans un webbrowser "voulez-vous ouvrir ..ce fichier"
Réponses
4
Affichages
2 K
kiki29
kiki29
E
  • Question
Microsoft 365 Problème macro événementielle
Réponses
2
Affichages
944
ExcLnoob
E
F
  • Question
Autres Ouverture Outlook en VBA
Réponses
6
Affichages
1 K
FOUQUET Yves
F
C
  • Question
XL 2013 Insérer lien hypertexte cliquable dans mail envoyé par VBA
Réponses
0
Affichages
3 K
Claggan
C

Membres actuellement en ligne

8 membres et 82 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 628
Messages
2 111 341
Membres
111 107
dernier inscrit
cdel