Inserer deux WebBrowser sur un userform

maval

maval

XLDnaute Barbatruc
Bonjour

Je suis a la recherche d'un code pour insérer deux WebBrowser sur un userform
Pour un je mais se code si dessous mais n'arrive pas a joindre le second
Code: 
Private Sub UserForm_Initialize() 

'WebBrowser
Dim S As String
Dim Hauteur As Long, Largeur As Long

Largeur = WebBrowser1.Width * 126 / 102
Hauteur = WebBrowser1.Height * 126 / 102

S = "C:\Users\Max\Desktop\Carte de france\France.gif"
WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"

'Stop

End Sub

Private Sub UserForm_activate()

 WebBrowser1.Document.body.Style.backgroundColor = xlTransparent
 WebBrowser1.Document.body.Style.Border = "none"
 WebBrowser1.Document.body.Style.backgroundColor = RGB(255, 255, 255) 'Blanc
  WebBrowser1.Height = 80
    WebBrowser1.Width = 120
 End Sub

Je vous remercie de votre aide
 
Trier par date Trier par votes
Staple1600

Staple1600

XLDnaute Barbatruc
Re : Inserer deux WebBrowser sur un userform

Bonjour à tous

maval
Il suffit d'insérer un second contrôle Webbrowser sur l'userform
qui normalement devrait s'appeler WebBrowser2
et de reproduire le code existant en adaptant avec WebBrowser2 là ou est écrit WebBrowser1 , non ?
 
Vote positif 0 Vote négatif
maval

maval

XLDnaute Barbatruc
Re : Inserer deux WebBrowser sur un userform

Bonjour JM

Oui sa était ma première idée donc j'ai ceci et sa me prend que le deuxième.

Code: 
Private Sub UserForm_Initialize()

'WebBrowser
Dim S As String
Dim Hauteur As Long, Largeur As Long



Largeur = WebBrowser1.Width * 126 / 102
Hauteur = WebBrowser1.Height * 126 / 102

S = "C:\Users\Max\Desktop\Carte de france\France.gif"
WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"


Largeur = WebBrowser2.Width * 126 / 102
Hauteur = WebBrowser2.Height * 126 / 102

S = "C:\Users\Max\Desktop\Carte de france\European.gif"
WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"


End Sub
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re : Inserer deux WebBrowser sur un userform

Re


maval
Relis bien mon précédent message et regarde ton dernier code :rolleyes:
Je sais que c'est le week-end, mais faut se concentrer ou acheter des nouvelles lunettes
QUESTION: Pourquoi passer par un WebBrowser plutôt qu'un contrôle Image :confused:
(Ce sont des gif animés tes cartes, peut-être :confused:)
Code: 
Private Sub UserForm_Initialize()
'WebBrowser
Dim S1$, S2$, Hauteur1&, Largeur1&, Hauteur2&, Largeur2&

Largeur1 = WebBrowser1.Width * 126 / 102
Hauteur1 = WebBrowser1.Height * 126 / 102

Largeur2 = WebBrowser2.Width * 126 / 102
Hauteur2 = WebBrowser2.Height * 126 / 102

S1 = "C:\Users\Max\Desktop\Carte de france\France.gif"

WebBrowser1.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur1 & " HEIGHT=" & Hauteur1 & _
" SRC='" & S1 & "'</IMG></BODY></CENTER></HTML>"

S2 = "C:\Users\Max\Desktop\Carte de france\European.gif"
WebBrowser2.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur2 & " HEIGHT=" & Hauteur2 & _
" SRC='" & S2 & "'</IMG></BODY></CENTER></HTML>"
'Stop
End Sub

Code: 
Private Sub UserForm_activate()
With WebBrowser1.Document.body.Style
.Border = "none"
.backgroundColor = RGB(255, 255, 255) 'Blanc
End With
WebBrowser1.Height = 80: WebBrowser1.Width = 120
    
With WebBrowser2.Document.body.Style
.Border = "none"
.backgroundColor = RGB(255, 255, 255) 'Blanc
End With
WebBrowser2.Height = 80: WebBrowser2.Width = 120
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

AIXELS
  • Question
XL 2019 Problème avec WeBrowser
Réponses
5
Affichages
570
AIXELS
AIXELS
T
  • Résolu(e)
XL 2019 Incorporer gif animé dans userform
Réponses
6
Affichages
3 K
Tempus
T
PHV.FSM
  • Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
3 K
Nicolas JACQUIN
Nicolas JACQUIN
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
maval
  • Question
XL 2013 Mettre plusieur WebBrowser sur un formulaire
2
Réponses
19
Affichages
2 K
Si...
S
S
  • Question
WebBrowser figé dans UserForm
Réponses
6
Affichages
3 K
StagiaireEnMousse
S
M
  • Question
Intercepter le clic sur une image dans un WebBrowser
Réponses
1
Affichages
718
modus57
M
R
  • Question
Choisir repertoire, modifier un code existant ?
2 3 4
Réponses
52
Affichages
5 K
re4
R
M
  • Question
Taille de police pour webbroser
Réponses
0
Affichages
707
mfb
M
aubelix
  • Question
Remplacer chemin banques images par une variable
Réponses
1
Affichages
756
aubelix
aubelix

Membres actuellement en ligne

21 membres et 311 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 630
Messages
2 111 375
Membres
111 115
dernier inscrit
mermo