Signaler

Proplème de Zoom

Posez votre question achgel 62Messages postés mercredi 26 août 2009Date d'inscription 19 juin 2017 Dernière intervention - Dernière réponse le 19 juin 2017 à 15:01 par Patrice33740
Bonjour,

J'utilise la Macro suivante pour que le fichier s'ouvre à la dimension de l’Écran.
mon problème c'est que quand j'ai un nouveau Écran je doit ajouter manuellement sa resolution dans la Macro.
Quelqu’un peut m'aider pour que je puisse changer d’Écran sans passer par le changement de la Macro d'une façon manuelle.

Merci beaucoup.
  • ==================

Option Explicit
'==déclarer L'API
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Dim Largeur As Integer, Hauteur As Integer
'==Macro à mettre dans un module, et à appeler à l'ouverture du classeur

[/contents/446-fichier-sub Sub] choixzoom()

Dim Largeur As Integer, Hauteur As Integer

  Largeur = GetSystemMetrics(0) '==récupère la largeur de l'écran en pixel
  Hauteur = GetSystemMetrics(1) '==récupère la longueur de l'écran en pixel
  
  'ActiveWindow.Zoom = 100
  
If Largeur = 1600 And Hauteur = 900 Then
ActivZoom (120) '==appliquer le poucentage voulu

ElseIf Largeur = 1280 And Hauteur = 1024 Then
ActivZoom (100) '==appliquer le poucentage voulu

ElseIf Largeur = 1152 And Hauteur = 864 Then
ActivZoom (80)

ElseIf Largeur = 1024 And Hauteur = 600 Then
ActivZoom (73)
Else
ActivZoom (90) '==Mon fichier est visible à 90% pour toutes les autres résolutions d'écran
End If
End Sub
  • ==================


Cordialement.

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 
Utile
+0
plus moins
Bonjour,

Calcules le zoom avec une règle de 3 par rapport à l'écran de référence (1280x1024) sur la dimension prioritaire (largeur, hauteur ou diagonale)

Cordialement
Patrice
achgel 62Messages postés mercredi 26 août 2009Date d'inscription 19 juin 2017 Dernière intervention - 16 juin 2017 à 02:52
Bonjour Patrice,

Excusez moi pour le retard de vous répondre,
Est ce que vous pouvez m'aider à changer la Macro de façon quelle soit trop réduit et que tous les formes d’écran peuvent y s'adapter.
Merci infiniment

Cordialement
Répondre
Patrice33740 6098Messages postés dimanche 13 juin 2010Date d'inscription 17 août 2017 Dernière intervention - 16 juin 2017 à 10:01
Est-ce du VBA Excel ? Si oui, dans le module du classeur :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim cel As Range
  If Sh.Name = "Feuil1" Then 'Feuille à zoomer
    Set cel = ActiveCell
    Range("A1:W42").Activate  'Plage à afficher
    ActiveWindow.Zoom = True
    cel.Select
  End If
End Sub
Répondre
achgel 62Messages postés mercredi 26 août 2009Date d'inscription 19 juin 2017 Dernière intervention - 19 juin 2017 à 13:56
Merci Patrice

En réalité j'ai essayer avec un fichier Excel 2010, vraiment je n'ai pas pu avoir le Zoom,

Merci pour votre aide

Cordialement
Répondre
Patrice33740 6098Messages postés dimanche 13 juin 2010Date d'inscription 17 août 2017 Dernière intervention - 19 juin 2017 à 15:01
Hein ????
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !