Resolution ecran et parametrer screen excel
ayinawa
Messages postés
6
Date d'inscription
samedi 18 février 2006
Statut
Membre
Dernière intervention
3 mai 2006
-
25 févr. 2006 à 22:29
kalobit Messages postés 169 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 7 avril 2008 - 28 févr. 2006 à 12:47
kalobit Messages postés 169 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 7 avril 2008 - 28 févr. 2006 à 12:47
A voir également:
- Screen width
- <Smil> <head> <layout> <root-layout/> <region id="text" top="70%" left="0%" height="30%" width="100%" fit="scroll"/> <region id="image" top="0%" left="0%" height="70%" width="100%" fit="meet"/> </layout> </head> <body> <par dur="10s"> <ref src="cl.loc.vcf"/> </par> </body> </smil> - Forum Javascript / DHTML
- Width ou height - Forum Javascript / DHTML
- Width - Forum Visual Basic
- Screen photoshop francais - Forum Graphisme/design
- Splash screen vb.net ✓ - Forum VB.NET
5 réponses
cs_Julien39
Messages postés
6414
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
29 juillet 2020
371
25 févr. 2006 à 22:47
25 févr. 2006 à 22:47
Pour connaitre la résolution d'écran
Screen.Width / 15
Screen.Height / 15
Pour parametrer la taille de la fenetre excel je ne sais pas mais pour changer la résolution je te donne un lien je ne peux pas faire mieux http://www.vbfrance.com/infomsg/CHANGEMENT-RESOLUTION-ECRAN-TAILLE-FREQUENCE-2_672699.aspx
Screen.Width / 15
Screen.Height / 15
Pour parametrer la taille de la fenetre excel je ne sais pas mais pour changer la résolution je te donne un lien je ne peux pas faire mieux http://www.vbfrance.com/infomsg/CHANGEMENT-RESOLUTION-ECRAN-TAILLE-FREQUENCE-2_672699.aspx
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
25 févr. 2006 à 23:15
25 févr. 2006 à 23:15
Bonsoir,
Pour les paramètres de l'écran.(pour adapter le UserForm aux paramètres de l'écran, je ne sait pas en VBA, je vais chercher).
Option Explicit
Declare Function GetSystemMetrics Lib "User32" _
(ByVal nIndex As Long) As Long
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Sub AfficherInfoVideo()
Dim LargeurVid As Long, HauteurVid As Long
Dim msg As String
LargeurVid = GetSystemMetrics(SM_CXSCREEN)
HauteurVid = GetSystemMetrics(SM_CYSCREEN)
msg = "Le mode vidéo courant est : "
msg = msg & LargeurVid & " X " & HauteurVid
MsgBox msg
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Pour les paramètres de l'écran.(pour adapter le UserForm aux paramètres de l'écran, je ne sait pas en VBA, je vais chercher).
Option Explicit
Declare Function GetSystemMetrics Lib "User32" _
(ByVal nIndex As Long) As Long
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Sub AfficherInfoVideo()
Dim LargeurVid As Long, HauteurVid As Long
Dim msg As String
LargeurVid = GetSystemMetrics(SM_CXSCREEN)
HauteurVid = GetSystemMetrics(SM_CYSCREEN)
msg = "Le mode vidéo courant est : "
msg = msg & LargeurVid & " X " & HauteurVid
MsgBox msg
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
cs_Julien39
Messages postés
6414
Date d'inscription
mardi 8 mars 2005
Statut
Modérateur
Dernière intervention
29 juillet 2020
371
25 févr. 2006 à 23:23
25 févr. 2006 à 23:23
Option Explicit
Private Declare Function GetSystemMetrics Lib "User32" _
(ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Sinon sa ne fonctionne pas
Private Declare Function GetSystemMetrics Lib "User32" _
(ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Sinon sa ne fonctionne pas
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
25 févr. 2006 à 23:28
25 févr. 2006 à 23:28
Re,
Julien39, c'est bien ce qu'il y a dans mon code.
Pour la taille de la fenêtre excel
Sub Maximum()
Application.WindowState = xlMaximized
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Julien39, c'est bien ce qu'il y a dans mon code.
Pour la taille de la fenêtre excel
Sub Maximum()
Application.WindowState = xlMaximized
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
kalobit
Messages postés
169
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 avril 2008
2
28 févr. 2006 à 12:47
28 févr. 2006 à 12:47
yep, il manquant le private devant la déclaration de l'api.
Pour julien 39, screen n'existe pas en VBA. Avant de poster un bout de code, c'est bien de le tester.
+++++
[mailto:K@lobit K@lobit]
Pour julien 39, screen n'existe pas en VBA. Avant de poster un bout de code, c'est bien de le tester.
+++++
[mailto:K@lobit K@lobit]
