dialog box without userform Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Option Base 1
Option Explicit
'* Declare Windows API calls and data types - 16 Bit for Windows 3.x      *
'Define a variable type to store the window coordinates
Type typRect16
    Left As Integer
    Top As Integer
    Right As Integer
    Bottom As Integer
End Type
'Get the dimensions of the screen
Declare Function GetSystemMetrics16 Lib "User" Alias "GetSystemMetrics" (ByVal nIndex As Integer) As Integer
'Get the handle for a window
Declare Function FindWindow16 Lib "User" Alias "FindWindow" (ByVal szClass$, ByVal szTitle$) As Integer
'Get the dimensions of the window
Declare Sub GetWindowRect16 Lib "User" Alias "GetWindowRect" (ByVal hWnd As Integer, lpRect As typRect16)
'Set the dimensions of the window
Declare Sub Movewindow16 Lib "User" Alias "Movewindow" (ByVal hWnd As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer)
'* Declare Windows API calls and data types - 32 bit for Windows 95 and NT *
'Define a variable type to store the window coordinates
Type typRect32
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
'Get the dimensions of the screen
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
'Get the handle for a window
Declare Function FindWindow32 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'Get the dimensions of the window
Declare Function GetWindowRect32 Lib "user32" Alias "GetWindowRect" (ByVal hWnd As Long, lpRect As typRect32) As Long
'Set the dimensions of the window
Declare Function Movewindow32 Lib "user32" Alias "MoveWindow" (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Sub CentreDialog()
If InStr(1, Application.OperatingSystem, "32") = 0 Then
    CentreDialog16
Else
    CentreDialog32
End If
End Sub
Sub CentreDialog16()
On Error Resume Next
'*** DIMENSION VARIABLES ***
Dim tRect As typRect16
'Variables to retrieve the screen dimensions with GetSystemMetrics API.
Dim iScreenWidth As Integer
Dim iScreenHeight As Integer
'Variable to store the window handle with FindWindow API.
Dim ihWnd As Integer
'Variables to calculate the new dimensions for the window.
Dim iWidth As Integer
Dim iHeight As Integer
Dim iLeft As Integer
Dim iTop As Integer
'Get the handle of the dialog box window - 'bosa_sdm_XL' is the class name
'for an Excel 5 dialog box.
ihWnd = FindWindow16("bosa_sdm_XL", ActiveDialog.DialogFrame.Text)
'Only continue if a valid handle is returned
If ihWnd  0 Then
'Get the width and height of the screen in pixels
    iScreenWidth = GetSystemMetrics16(0)
    iScreenHeight = GetSystemMetrics16(1)
'Get the dimensions of the dialog box window in pixels
    GetWindowRect16 ihWnd, tRect
'Calculate the width and height of the dialog box
    iWidth = Abs(tRect.Right - tRect.Left)
    iHeight = Abs(tRect.Top - tRect.Bottom)
'Calculate the new position of the dialog box in pixels
    iLeft = (iScreenWidth - iWidth) / 2
    iTop = (iScreenHeight - iHeight) / 2
'Move the dialog box to the centre of the screen
    Movewindow16 ihWnd, iLeft, iTop, iWidth, iHeight, True
End If
End Sub
Sub CentreDialog32()
On Error Resume Next
'*** DIMENSION VARIABLES ***
Dim tRect As typRect32
'Variables to retrieve the screen dimensions with GetSystemMetrics API.
Dim iScreenWidth As Long
Dim iScreenHeight As Long
'Variable to store the window handle with FindWindow API.
Dim ihWnd As Long
'Variables to calculate the new dimensions for the window.
Dim iWidth As Long
Dim iHeight As Long
Dim iLeft As Long
Dim iTop As Long
'Get the handle of the dialog box window - 'bosa_sdm_XL' is the class name
'for an Excel dialog box.
ihWnd = FindWindow32("bosa_sdm_XL", ActiveDialog.DialogFrame.Text)
'If not found, it could be a later version of Excel, so try again
If ihWnd = 0 Then
    ihWnd = FindWindow32("bosa_sdm_XL8", ActiveDialog.DialogFrame.Text)
End If
'Only continue if a valid handle is returned
If ihWnd  0 Then
'Get the width and height of the screen in pixels
    iScreenWidth = GetSystemMetrics32(0)
    iScreenHeight = GetSystemMetrics32(1)
'Get the dimensions of the dialog box window in pixels
    GetWindowRect32 ihWnd, tRect
'Calculate the width and height of the dialog box
    iWidth = Abs(tRect.Right - tRect.Left)
    iHeight = Abs(tRect.Top - tRect.Bottom)
'Calculate the new position of the dialog box in pixels
    iLeft = (iScreenWidth - iWidth) / 2
    iTop = (iScreenHeight - iHeight) / 2
'Move the dialog box to the centre of the screen
    Movewindow32 ihWnd, iLeft, iTop, iWidth, iHeight, True
End If
End Sub
Sub ShowDialog()
ThisWorkbook.DialogSheets("Dialog1").Show
End Sub

No	Macro Name
1	dialog box without userform
2	Give the macro path to the combobox tryit without userform
3	sheet / pages showing userform (with code without form)
4	informs which button is pressed (commandbutton)
5	userformless form menu sheet / page select
6	image preview in userform
7	macros box and macros appear
8	creates a copy of the book by deleting userformmodulclass
9	excel operators hk
10	save book you specify name - notifies you by message
11	copies active sheet / page email
12	Open a new file with the "Open File" window
13	floppy disk backup
14	book backup to floppy disk
15	backs up the workbook
16	backs up your book to a floppy disk
17	book backup
18	book backup
19	userforma save as key
20	add save key to userforma

Excel Free Macros (VBA)

Dialog Box Without Userform

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords