ekranı kapla makro ile

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; bir ekranda ( _ # x) gibi simgelerin bulunduğu kısımda bulunan # bulunan kısmına basınca tam ekran oluyor, bunu makro ile yazılabilir mi? Teşekkürler

 

[rebel_child]

ekran kaplama

valla ekran menulerını gızleyen kodlar var ıstersen bana ornegını at menu gızlemesı yapayım.

 

[Murat OSMA]

UserForm'da bahsediyorsanız; sitede "Tam Ekran UserForm" - "FullScreen UserForm" gibi kelimelerle aratınız...

 

[security]

Merhaba arkadaşlar; bir ekranda ( _ # x) gibi simgelerin bulunduğu kısımda bulunan # bulunan kısmına basınca tam ekran oluyor, bunu makro ile yazılabilir mi? Teşekkürler

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Sub UserForm_Activate()
Dim hWnd As Long, exLong As Long
'Application.Visible = False
If Application.Version < 9 Then
hWnd = FindWindow("ThunderXFrame", Me.Caption)
Else
hWnd = FindWindow("ThunderDFrame", Me.Caption)
End If
exLong = GetWindowLongA(hWnd, -16)
If (exLong And &H30000) = 0 Then
SetWindowLongA hWnd, -16, exLong Or &H30000
Me.Hide: Me.Show
End If
End Sub

denermisiniz...