Voici plusieurs exemples montrant l'utilisation des 'popups' :
Dans tous les cas, créez un bouton vbs puis cliquez sur 'Modifier le code VBS'.
1/ Fenêtre centrée
Collez ce code dans la fenêtre d'édition :
'création de l'objet (fenêtre)
Set oIE = CreateObject("InternetExplorer.Application")
'hauteur :
oIE.Height = 380
'largeur :
oIE.Width = 580
'position X (ici pour centrer, vous
pouvez entrer
'd'autres valeurs, ex: oIE.Left = 20) :
oIE.Left = (ecran.Width / 2 - (oIE.Width * ecran.TwipsperpixelX) / 2) /
ecran.TwipsperpixelX
'position Y :
oIE.Top = (ecran.Height / 2 - (oIE.Height * ecran.Twipsperpixely) / 2) /
ecran.TwipsperpixelY
'barre des menus ? (0 ou 1) :
oIE.Menubar = 0
'barre d'outils ? (0 ou 1) :
oIE.Toolbar = 0
'barre d'état ? (0 ou 1) :
oIE.Statusbar = 0
'page (*.htm...) ou image :
oIE.Navigate("[LECT]:\rep_images\monimage.jpg")
'on affiche la fenetre
oIE.Visible = True
(Attention : tout est en pixel ! pour convertir : Xpx=Xunite_lab/ecran.twipsperpixelX
et Ypx=Yunite_lab/ecran.twipsperpixelY)
2/ Fenêtre en haut à droite
Collez ce code dans la fenêtre d'édition :
'création de l'objet (fenêtre)
Set oIE = CreateObject("InternetExplorer.Application")
'hauteur :
oIE.Height = 380
'largeur :
oIE.Width = 580
'position X :
oIE.Left = ecran.width / ecran.twipsperpixelx - oIE.width
'position Y :
oIE.Top = 0
'barre des menus ? (0 ou 1) :
oIE.Menubar = 0
'barre d'outils ? (0 ou 1) :
oIE.Toolbar = 0
'barre d'état ? (0 ou 1) :
oIE.Statusbar = 0
'page (*.htm...) ou image :
oIE.Navigate("[LECT]:\rep_images\monimage.jpg")
'on affiche la fenetre
oIE.Visible = True
3/ Fenêtre plein écran
Collez ce code dans la fenêtre d'édition :
'création de l'objet (fenêtre)
Set oIE = CreateObject("InternetExplorer.Application")
'hauteur :
oIE.Height = ecran.height / ecran.twipsperpixely
'largeur :
oIE.Width = ecran.width / ecran.twipsperpixelx
'position X :
oIE.Left = 0
'position Y :
oIE.Top = 0
'barre des menus ? (0 ou 1) :
oIE.Menubar = 0
'barre d'outils ? (0 ou 1) :
oIE.Toolbar = 0
'barre d'état ? (0 ou 1) :
oIE.Statusbar = 0
'page (*.htm...) ou image :
oIE.Navigate("[LECT]:\rep_images\monimage.jpg")
'on affiche la fenetre
oIE.Visible = True
Si vous avez le moindre problème ou question, n'hésitez pas à me contacter : cliquez ici !
Commentaires sur l'article :