Zoom automatique réolution écran

[Ewan]

Re-bonjour le forum,

Hug m'a fait penser à une chose avec sa question sur les zoom...

Est-il possible de caler automatiquement le zoom en fonction de la résolution et de la zone d'impression définie sur la feuille ? Ce qui permettrait de s'adapter exactement à toutes les configuration d'écrans et de feuilles- ce serait génial

Merci


Ewan

 

[Ti]

tu peux placer cette procédure dans la partie code de ta feuille ou dans Thisworkbook, en changeant à peine le nom. Le zoom ne sera ajusté que si tu as défini une zone d'impression !

Private Sub Worksheet_Activate()
Dim Area$, Cel As Range
On Error Resume Next
With ActiveSheet
Set Cel = Selection
If Cel Is Nothing Then Set Cel = .Range("A1")
Area = .PageSetup.PrintArea
If Area <> "" Then
.Range(Area).Select
ActiveWindow.Zoom = True
End If
End With
Cel.Select
End Sub