Warning: session_start() [function.session-start]: Cannot send session cookie - headers already sent by (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Warning: session_start() [function.session-start]: Cannot send session cache limiter - headers already sent (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Excel Free Macros (VBA)

---

Display Of The Sheet / Page With The Screen Resolution Set To 800x600

Online Excel and Excel Macro (VBA) Courses

Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Private Sub Worksheet_Activate() Call GetScreenSize End Sub Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _ ByVal hdc As Long) As Long Const HORZRES = 8 Const VERTRES = 10 Function ScreenResolution() Dim lRval As Long Dim lDc As Long Dim lHSize As Long Dim lVSize As Long lDc = GetDC(0&) lHSize = GetDeviceCaps(lDc, HORZRES) lVSize = GetDeviceCaps(lDc, VERTRES) lRval = ReleaseDC(0, lDc) ScreenResolution = lHSize & "x" & lVSize End Function Sub GetScreenSize() Dim aufl As String aufl = ScreenResolution() If aufl = "800x600" Then ActiveWindow.Zoom = 75 End If If aufl = "1024x768" Then ActiveWindow.Zoom = 125 End If End Sub

Report problem with this macro

This macro does not work.
There's an error in the code.
Other
You can write your comments about the error in the box below.

Report error

ALL MACROS Youtube Channel
The following macros may be useful for you.

Similar Results

No	Macro Name
1	display of the sheet / page with the screen resolution set to 800x600
2	excel operators hk
3	userformless form menu sheet / page select
4	sheet / pages showing userform (with code without form)
5	status bar macro with a message waiting
6	specifies in detail how many references the book contains (on new sheet / page)
7	specifies in detail how many formulas are in the book (on new sheet / page)
8	list formulas on new sheet / page
9	writes the names of all sheet / pages from the active sheet / page and cell and adds a link to the sheet / pages
10	records detailed formatted cells on the records sheet / page
11	inserts months as sheet / pages Specifies days in detail
12	a hyperlink down your sheet / page from the active cell of the sheet / page
13	sheet / page address and set column width
14	hyperlinks to sheet / pages from the active cell
15	Inputbox add year as summer
16	Send or bulk mail with Outlook
17	specify the number of copies to print from the printer
18	remove sheet / page protections
19	right mouse on active sheet / page menu
20	transfer lines with spaces to another sheet / page

---

---

Online Excel Courses

Online Excel Courses are here...

Click to see

Services

• Advanced Excel Courses
• Excel Macro Courses
• Comporate Valuation Courses
• Financial Mathematics
• Financial Modeling
• Comporate Valuation Services

How can we help you?

You can contact us about our services.

Contact us

Subscribe to our Youtube Channel?

Here are the videos that will make your life easier using Excel.

Subscribe Now

Keywords

Excel Videos Advanced Excel Courses Free Macros Free Excel Templates Excel Macro Courses