Propriétes d'affichages

[SHINTRA]

Hello le forum, le fil

une petite question en pasant que me permettrait de resoudre quelques soucis.
Est il possible de modifier temporairement les propriétes d'affichages de l'ecran.

Pour des raison pratique je travail en 1280 x 1024, cependant plusieur personnes desirant visualiser le fichier excel que je souhaite partagé travail en 1024 x 768.

Est il possible de definir un type d'affichage a l'ouverture du fichier, puis de revenir comme avant en sortant.

D'avance merci de vos reponses.

 

[Roger]

Re : Propriétes d'affichages

Hello le forum, le fil

une petite question en pasant que me permettrait de resoudre quelques soucis.
Est il possible de modifier temporairement les propriétes d'affichages de l'ecran.

Pour des raison pratique je travail en 1280 x 1024, cependant plusieur personnes desirant visualiser le fichier excel que je souhaite partagé travail en 1024 x 768.

Est il possible de definir un type d'affichage a l'ouverture du fichier, puis de revenir comme avant en sortant.

D'avance merci de vos reponses.

Bonjour,
Tu peux essayer ceci en adaptant si besoin est la valeur ZOO1,2,3...

Option Base 1
Const Zoom1 = 100
Const Zoom2 = 125
Const Zoom3 = 150
Function ZoomFactor()
Select Case ActiveWindow.Width
Case 1 To 699
ZoomFactor = Zoom1
Case 700 To 1050
ZoomFactor = Zoom2
Case Else
ZoomFactor = Zoom3
End Select
End Function
Sub test_zoom()
MsgBox ZoomFactor
End Sub
Sub AutoScale()
'scales the default zoom factor to the user's monitor size
Application.ScreenUpdating = False
' For s = 1 To 3
'Sheets(s).Activate
ActiveWindow.Zoom = ZoomFactor
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
'Next s
Application.ScreenUpdating = True
End Sub
Sub Auto_open()
AutoScale
End Sub


@+
Roger.

 

[Gorfael]

Re : Propriétes d'affichages

salut

Private Sub Workbook_Open()
Sheets(1).Activate
Range("A1:H1").Select
ActiveWindow.Zoom = True
End Sub

reviens à sélectionner A1:H1 et à adapter le zoom à la sélection
A+

 

[SHINTRA]

Re : Propriétes d'affichages

Merci pour vos réponses,
je vais essayer tout ca.
je vous tiens au courant.