- Initiateur de la discussion Hulk
- Date de début
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
Re : WebBrowser qui disparaît !
Bonjour,
Une solution avec la démarche suivante
1) Dans le UserForm, il faut d'abord créer le contrôle WebBrowser pour qu'il se trouve en-dessous des autres contrôles.
Par conséquent, le contrôle MultiPage devra se trouver au-dessus. On peut dire que le véritable conteneur est le UserForm lui-même.
2) Copiez le code suivant, qui est d'ailleurs le votre, où seules les lignes de code après '//// Ajout PMO //// sont de mon cru.
Cordialement.
PMO
Patrick Morange
Bonjour,
Une solution avec la démarche suivante
1) Dans le UserForm, il faut d'abord créer le contrôle WebBrowser pour qu'il se trouve en-dessous des autres contrôles.
Par conséquent, le contrôle MultiPage devra se trouver au-dessus. On peut dire que le véritable conteneur est le UserForm lui-même.
2) Copiez le code suivant, qui est d'ailleurs le votre, où seules les lignes de code après '//// Ajout PMO //// sont de mon cru.
Code:
Dim WithEvents Img As MSHTML.HTMLImg
Private Sub UserForm_Initialize()
MultiPage1.Value = 0
LogoEmail.Navigate "about:<html><body><img src='" & ThisWorkbook.Path & "\Email3D.gif" & "' style='cursor: hand' /></body></html>"
End Sub
Private Sub LogoEmail_DownloadComplete()
On Error Resume Next
With LogoEmail.Document.body
.Style.backgroundcolor = RGB(223, 223, 223)
.Style.BorderStyle = "none"
.Scroll = "no"
End With
End Sub
Private Sub LogoEmail_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Set Img = LogoEmail.Document.images.Item(0)
End Sub
Private Function Img_onclick() As Boolean
With ThisWorkbook.Sheets("Feuil1").Range("A1")
If Not .Hyperlinks Is Nothing Then .Hyperlinks(1).Follow Else MsgBox "Aucun lien défini"
End With
Img_onclick = True
End Function
'//// Ajout PMO ////
Private Sub MultiPage1_Change()
If MultiPage1.SelectedItem.Caption = "Page1" Then
LogoEmail.Visible = True
Else
LogoEmail.Visible = False
End If
End SubCordialement.
PMO
Patrick Morange
Hulk
XLDnaute Barbatruc
Re : WebBrowser qui disparaît !
Hello, Forum, PMO,
Impeccable !
Te remercie infiniment pour l'astuce !
Bonne fin de soirée, Hulk.
Hello, Forum, PMO,
Impeccable !
Te remercie infiniment pour l'astuce !
Bonne fin de soirée, Hulk.
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Discussions similaires
- Résolu(e)
- Résolu(e)
- Question
- Question
- Question
- Question
