MS Excel

Téma: Nastavení lupy v sešitu

Zaslal/a KENTAUR 6.12.2012 16:16

Dobrý den, mám dotaz. Na monitoru s rozlišením 1024x768 otevírám sešit s nastavením lupy na listech 100% . Lze zajistit,aby na monitoru s rozlišením 1280 x 1024 se sešit otevřel s lupou na listech např. 125% ?
A samozřejmě platí i opačně.

Uzamčeno - nelze přidávat nové příspěvky.

AL(6.12.2012 22:33)#010600

Nakopíruj do kódového okna ThisWorkbook:

Option Explicit

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

Private Sub Workbook_Open()

Dim x As Long
Dim y As Long
Dim z As Long
Dim sh

z = ActiveSheet.Index
x = GetSystemMetrics(SM_CXSCREEN)
y = GetSystemMetrics(SM_CYSCREEN)

If x = 1024 And y = 768 Then
For Each sh In ThisWorkbook.Sheets
sh.Activate
ActiveWindow.Zoom = 100
Next
End If

If x = 1280 And y = 1024 Then
For Each sh In ThisWorkbook.Sheets
sh.Activate
ActiveWindow.Zoom = 125
Next
End If

Sheets(z).Activate
End Sub
citovat

KENTAUR(8.12.2012 8:29)#010604

Díky,funguje skvěle.
možno uzamknout.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.