XL 2013 Mettre plusieur WebBrowser sur un formulaire

  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début 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 !

maval

XLDnaute Barbatruc
Bonjour

J'ai une question est-il possible de mettre 20 WebBrowser sur un userform sans répéter 20 fois le code.

Code:
Private Sub UserForm_Initialize()
Dim S As String
Dim Hauteur As Long, Largeur As Long

Largeur = WebBrowser1.Width * 56 / 55
Hauteur = WebBrowser1.Height * 30 / 30

S = "C:\Users\Max\Desktop\Drapeau Small\afrique_du_sudsmall.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 * 55 / 55
Hauteur = WebBrowser2.Height * 30 / 30

S = "C:\Users\Max\Desktop\Drapeau Small\algeriesmall.gif"
WebBrowser2.Navigate _
"ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
Largeur & " HEIGHT=" & Hauteur & _
" SRC='" & S & "'</IMG></BODY></CENTER></HTML>"

Je joint mon fichier
Je vous remercie de votre aide
 

Pièces jointes

- 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

Discussions similaires

Réponses
5
Affichages
651
Réponses
38
Affichages
2 K
Retour