Patricia25
XLDnaute Nouveau
Bonjour à tous!
Voici mon soucis : Dans un Userform j'ai créé un Multipage qui contient deux pages. Dans chaque page j'y ai inséré un WebBrowser qui gère une image préenregistrée. Jusque là, ça va ! Les deux images s'affichent correctement.
Mais (!!!) si je change d'onglet, mes webbrowsers disparaissent !
Voici les lignes de codes de USF :
Ai-je oublié une ligne pour que les images disparaissent?
Merci pour votre aide
Voici mon soucis : Dans un Userform j'ai créé un Multipage qui contient deux pages. Dans chaque page j'y ai inséré un WebBrowser qui gère une image préenregistrée. Jusque là, ça va ! Les deux images s'affichent correctement.
Mais (!!!) si je change d'onglet, mes webbrowsers disparaissent !
Voici les lignes de codes de USF :
Code:
Private Sub Retour_Click()
Unload UserForm4
userform1.Show
End Sub
Private Sub UserForm_Initialize()
Dim Gif1, Gif2 As String
MultiPage1.Value = 0
Gif1 = "H:\Mes images\Image1.gif"
Image1.Navigate Gif1
Gif2 = "H:\Mes images\Image2.gif"
Image2.Navigate Gif2
End Sub
Private Sub Image1_DownloadComplete()
On Error Resume Next
With Image1.Document.body
.Style.backgroundcolor = RGB(128, 128, 128)
.Style.BorderStyle = "none" 'Cadre
.Scroll = "no" 'Barres
End With
End Sub
Private Sub Image2_DownloadComplete()
On Error Resume Next
With Image2.Document.body
.Style.backgroundcolor = RGB(128, 128, 128)
.Style.BorderStyle = "none" 'Cadre
.Scroll = "no" 'Barres
End With
End Sub
Ai-je oublié une ligne pour que les images disparaissent?
Merci pour votre aide