Menampilkan UserForm tampil FullScreen dengan macro VBA ,
ini scriptnya Gan.
Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 80)
Width = .Width
Height = .Height
End With
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 80)
Width = .Width
Height = .Height
End With
End Sub
note = 80 bisa di ganti sesuaikan karena ini tampil fullscreen yg bersifat zoom.