Alltid Open på 100% zoom

August 15  by Eliza

Hvis du arbeider med arbeidsbøker først jobbet på av dine kolleger, kan du bli frustrert av zoomfaktoren brukes på disse arbeidsbøker av de andre. For eksempel, hvis din kollega (Wanda) har en stor skjerm, ville det ikke være uvanlig for henne å redusere zoomfaktor på Excel til 75% eller 60%. Hensikten, selvfølgelig, er slik at hun ikke overmannet av ting som ser veldig stort på full zoom faktor.

Problemet er at zoomfaktoren er lagret med arbeidsboken. Så når Wanda lagrer arbeidsboken og hender det av til deg, når du åpner den, arbeidsboken fortsatt vises på uansett zoomfaktor Wanda brukte sist. Hvis du ikke har samme størrelse skjermen som Wanda, da arbeidsboken kan være nesten uleselig på systemet ditt.

Det er bare to mulige løsninger på dette problemet. Først kan du bare justere zoomfaktoren når du åpner arbeidsboken. Det finnes en rekke måter å gjøre dette på, men den enkleste involvere zoom-innstillingen på formateringsverktøylinjen, eller bruke rullehjulet på musen. (På noen systemer kan det være nødvendig å holde nede Ctrl-tasten for at rullehjulet for å justere zoomfaktor.)

Den andre løsningen er å opprette en makro som blir lagret med arbeidsboken. Makroen kan kjøre hver gang arbeidsboken åpnes, og dermed sette zoomfaktor. (Denne makroen skal legges til Denne arbeidsbok kodevinduet i VBA editor.)

Private Sub Workbook_Open ()
ActiveWindow.Zoom = 100
End Sub

Det eneste problemet med en makro som dette, selvfølgelig, er at når Wanda (kollegaen) åpner arbeidsboken på hennes system, er zoomfaktoren også stille, og hun vil få like frustrert med deg som du var sammen med henne.

Kanskje en løsning er å skape en mer involvert makro-en som sjekker gjeldende skjermoppløsning og deretter setter zoomfaktor tilsvarende. For eksempel kan følgende makro brukes til å gjøre justeringer basert på vedtak:

Erklærer Funksjon GetSystemMetrics32 Lib "User32" _
Alias ​​"GetSystemMetrics" (ByVal nIndex så lenge) så lenge

Public Sub ScreenRes ()
Dim lResWidth Som Long
Dim lResHeight Som Long
Dim SRES As String

lResWidth = GetSystemMetrics32 (0)
lResHeight = GetSystemMetrics32 (1)
SRES = lResWidth & "x" & lResHeight
Velg sak SRES
Tilfellet Er = "800x600"
ActiveWindow.Zoom = 75
Tilfellet Er = "1024x768"
ActiveWindow.Zoom = 125
Tilfellet Else
ActiveWindow.Zoom = 100
End Select
End Sub

Denne rutinen sjekker skjermoppløsningen og justerer vindu tilsvarende. Andre vedtak og zoom kan legges enkelt. For å gjøre rutinen kjøres automatisk, bare bruke en Workbook_Open hendelsesbehandling i Dette arbeidsbok kodevinduet for å utløse makro:

Private Sub Workbook_Open ()
ScreenRes
End Sub

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2668) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Always Open på 100% zoom.