Zoom en fonction de la résolution , possible ?

jpmasclet · 23 Août 2007

Bonjour je cherche une macro qui dit

si résolution est 1248 x 1024 alors zoom 100%
Si resolution est 1024 alors zoom 80%
si ... 800 x 600 alors zoom 75 %

etc ..

est ce possible ?

En realité je cherche une macro qui s'adapte a ma résolution afin que ma page soit affiché entierement. (tout les utilisateurs non pas la meme résolution)

Dans l'hypotheque ou l'histoire de zoom en fonction de résolution est possible, et q'un utilisateur n'est pas une résolution classique (ex : 1280 x 960) que se passe t'il ? il bloque ou alors ne prend en compte que le 1280 ?

merci

Cousinhub · 23 Août 2007

Re : Zoom en fonction de la résolution , possible ?

Bonjour, en admettant que tu veuilles afficher de A1 à L30 :

Sub ess()
Range("A1:L30").Select
ActiveWindow.Zoom = True
[A1].Select
End Sub

kiki29 · 23 Août 2007

Re : Zoom en fonction de la résolution , possible ?

A adapter
En fait tu parles de Définition ( dimension x y ) pas de Résolution (DPI)

Code:

Option Explicit

Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1

Sub Tst()
Dim x As Long, y As Long
   x = GetSystemMetrics(SM_CXSCREEN)
   y = GetSystemMetrics(SM_CYSCREEN)
   ....
End Sub

Creepy · 23 Août 2007

Re : Zoom en fonction de la résolution , possible ?

Bonjour le Forum, Kiki29, Bhbh et JPMasclet

Ci joint un exemple qui tire partie des API.

L'API renvoie la résolution et l'on calcul la taille de zoom en fonction de la réssolution sachant que 1248 est = 100%.

Ce code fonctionne avec n'importe quelle résolution.

@+

Creepy

Spitnolan08 · 23 Août 2007

Re : Zoom en fonction de la résolution , possible ?

Bonjour le fil,

tu as des réponses dans ce fil (qui reprend les 2 posts précédents en plus complet) :
https://www.excel-downloads.com/threads/aide-pour-macro-resolution-decran-et-zoom.73852/

Cordialement

Edit : Oups, désolé Creepy, les 2 posts ne tiennent pas compte du tien.

Zoom en fonction de la résolution , possible ?

jpmasclet

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

Creepy

XLDnaute Accro

Pièces jointes

Spitnolan08

XLDnaute Barbatruc

Discussions similaires