MS Excel

Napr. rozlíšenie obrazovky zistíš cez API:
Declare Function GetClipCursor Lib "user32" (lprc As RECT) As Long
Type RECT
gauche As Long
haut As Long
droit As Long
bas As Long
End Type
Dim oGCC As RECT

Sub dimEcran()
GetClipCursor oGCC
With oGCC
MsgBox .droit & " x " & .bas
End With
End Sub

Veľkosť (zoom) aká je práve používaná:
Sub zoom()
[B1] = ActiveWindow.zoom
End Sub

Ak chceš aby sa napr. bunka C12 objavila v ľavom hornom rohu a tým dosiahneš viditeľnosť svojich dát (naspäť rovnaká procedúra ale dať A1):
Sub skuska()
Application.Goto Range("C12"), Scroll:=True
End Sub

Hranie sa s obrazovkou:na celú obrazovku vybraná oblasť, návrat na 100% a napokon 80% zobrazenie
Sub DisplaySize2()
Range("A1:D7").Select
ActiveWindow.Zoom = True
End Sub

Sub DisplaySize3()
ActiveWindow.Zoom = False
End Sub

Sub DisplaySize4()
ActiveWindow.Zoom = 80
End Sub

a napokon, ak používaš súvisiacu oblasť a máš bunky od A1 (alebo inak, to je treba napísať do procedúry), urobí ti zoom aby si videl VŠETKO , celú súvisiacu oblasť. Procedúru umiestni vo VBEditore na List, ktorého sa to týka:
Private Sub Worksheet_Activate()
Range("a1").Select
Selection.CurrentRegion.Select
ActiveWindow.zoom = True
Range("a1").Select
End Sub

citovat

Dakujem pani
to od eLCHa je presne to co som hladal, ale ani to druhe nieje na zahodenie ak sa budem potrebovat niekde viac vysantit... citovat