je souhaiterai g=E9rer la r=E9solution de la feuille avec
ActiveWindow.Zoom suivant la r=E9solution de l'=E9cran.
Par contre je n'ai pas trouv=E9 un truc correct ....
Screen.width et Screen.height me donnent la r=E9solution de
la fenetre excel ce qui n'est pas exactement ce que je veux.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Modeste
Bonsour@®
-----Message d'origine----- ce n'est pas exactement ce que je veux.
Qu'est-ce que tu veux ??? - agir sur le zoom (0-100%) - changer la résolution (320x400.... 1280x1024) - avoir une plage particuliere toujours visible (Scrollarea) - avoir plusieurs fenetres - avoir une taille de caractères spéciale (arial 400 ??)
.... ???
Bonsour@®
-----Message d'origine-----
ce n'est pas exactement ce que je veux.
Qu'est-ce que tu veux ???
- agir sur le zoom (0-100%)
- changer la résolution (320x400.... 1280x1024)
- avoir une plage particuliere toujours visible
(Scrollarea)
- avoir plusieurs fenetres
- avoir une taille de caractères spéciale (arial 400 ??)
-----Message d'origine----- ce n'est pas exactement ce que je veux.
Qu'est-ce que tu veux ??? - agir sur le zoom (0-100%) - changer la résolution (320x400.... 1280x1024) - avoir une plage particuliere toujours visible (Scrollarea) - avoir plusieurs fenetres - avoir une taille de caractères spéciale (arial 400 ??)
j'ai pas fait gaffe mais je n'ai pas fini mon post lol ce que je veux c'est juste savoir la résolution de mon écran afin de changer le zoom de la feuille excel
j'ai pas fait gaffe mais je n'ai pas fini mon post lol
ce que je veux c'est juste savoir la résolution de mon
écran afin de changer le zoom de la feuille excel
j'ai pas fait gaffe mais je n'ai pas fini mon post lol ce que je veux c'est juste savoir la résolution de mon écran afin de changer le zoom de la feuille excel
Modeste
Bonsour® tu ne parles pas du contexte d'utilisation .... toujours sur le meme poste ? chaque poste utilise un ecran de taille(14" à 21") et résolution identique ? l'application est-elle toujours en plein écran ? si tu veux régler tout ces parametres par macro ???? il faudra utiliser les API...
voici une solution simpliste ;o)) - forcer la taille de la fenetre au maxi et s'assurer qu'une plage de reference est entierement visible à l'écran :
Sub SHiSo() '-Excel taille maxi Application.WindowState = xlMaximized '-la feuille(1) taille maxi ThisWorkbook.Sheets(1).Select ActiveWindow.WindowState = xlMaximized '- on peut meme passer en plein écran 'Application.DisplayFullScreen = True
'-ici désigner la plage qui doit etre entierement visible Range("A1:L1").Select ActiveWindow.Zoom = True [A1].Select End Sub @+
-----Message d'origine----- j'ai pas fait gaffe mais je n'ai pas fini mon post lol ce que je veux c'est juste savoir la résolution de mon écran afin de changer le zoom de la feuille excel .
Bonsour®
tu ne parles pas du contexte d'utilisation ....
toujours sur le meme poste ?
chaque poste utilise un ecran de taille(14" à 21") et
résolution identique ?
l'application est-elle toujours en plein écran ?
si tu veux régler tout ces parametres par macro ????
il faudra utiliser les API...
voici une solution simpliste ;o))
- forcer la taille de la fenetre au maxi
et s'assurer qu'une plage de reference est entierement
visible à l'écran :
Sub SHiSo()
'-Excel taille maxi
Application.WindowState = xlMaximized
'-la feuille(1) taille maxi
ThisWorkbook.Sheets(1).Select
ActiveWindow.WindowState = xlMaximized
'- on peut meme passer en plein écran
'Application.DisplayFullScreen = True
'-ici désigner la plage qui doit etre entierement visible
Range("A1:L1").Select
ActiveWindow.Zoom = True
[A1].Select
End Sub
@+
-----Message d'origine-----
j'ai pas fait gaffe mais je n'ai pas fini mon post lol
ce que je veux c'est juste savoir la résolution de mon
écran afin de changer le zoom de la feuille excel
.
Bonsour® tu ne parles pas du contexte d'utilisation .... toujours sur le meme poste ? chaque poste utilise un ecran de taille(14" à 21") et résolution identique ? l'application est-elle toujours en plein écran ? si tu veux régler tout ces parametres par macro ???? il faudra utiliser les API...
voici une solution simpliste ;o)) - forcer la taille de la fenetre au maxi et s'assurer qu'une plage de reference est entierement visible à l'écran :
Sub SHiSo() '-Excel taille maxi Application.WindowState = xlMaximized '-la feuille(1) taille maxi ThisWorkbook.Sheets(1).Select ActiveWindow.WindowState = xlMaximized '- on peut meme passer en plein écran 'Application.DisplayFullScreen = True
'-ici désigner la plage qui doit etre entierement visible Range("A1:L1").Select ActiveWindow.Zoom = True [A1].Select End Sub @+
-----Message d'origine----- j'ai pas fait gaffe mais je n'ai pas fini mon post lol ce que je veux c'est juste savoir la résolution de mon écran afin de changer le zoom de la feuille excel .
Gaenonius
Une solution parmi d'autres (Windows 2000 et XP) :
Sub Resolution() strComputer = "." Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor") For Each objItem In colItems H = objItem.ScreenHeight L = objItem.ScreenWidth Exit For Next MsgBox "Résolution courante : " & L & "x" & H End Sub
-- Gaenonius
Bonjour,
je souhaiterai gérer la résolution de la feuille avec ActiveWindow.Zoom suivant la résolution de l'écran. Par contre je n'ai pas trouvé un truc correct .... Screen.width et Screen.height me donnent la résolution de la fenetre excel ce qui n'est pas exactement ce que je veux.
Si qq1 a la soluce :)
thx
SHiSo
Une solution parmi d'autres (Windows 2000 et XP) :
Sub Resolution()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor")
For Each objItem In colItems
H = objItem.ScreenHeight
L = objItem.ScreenWidth
Exit For
Next
MsgBox "Résolution courante : " & L & "x" & H
End Sub
--
Gaenonius
Bonjour,
je souhaiterai gérer la résolution de la feuille avec
ActiveWindow.Zoom suivant la résolution de l'écran.
Par contre je n'ai pas trouvé un truc correct ....
Screen.width et Screen.height me donnent la résolution de
la fenetre excel ce qui n'est pas exactement ce que je veux.
Une solution parmi d'autres (Windows 2000 et XP) :
Sub Resolution() strComputer = "." Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor") For Each objItem In colItems H = objItem.ScreenHeight L = objItem.ScreenWidth Exit For Next MsgBox "Résolution courante : " & L & "x" & H End Sub
-- Gaenonius
Bonjour,
je souhaiterai gérer la résolution de la feuille avec ActiveWindow.Zoom suivant la résolution de l'écran. Par contre je n'ai pas trouvé un truc correct .... Screen.width et Screen.height me donnent la résolution de la fenetre excel ce qui n'est pas exactement ce que je veux.
