form transparant maken

Hello

bij het opstarten van een excel bestand gebruik ik een form. afhankelijk van de keuze die daar gemaakt wordt worden er andere tabbladen getoond nadien.

het bestand start altijd op met hetzelfde tabblad .

nu wil ik dat die form ofwel het tabblad verbergt en dus gemaximaliseerd en dus scherm vullend opstart OF dat ik de form transparant kan maken, in dat geval zou ik op het tablad wat altijd getoond wordt bij het opstarten een leuke tekening of zo kunnen zetten....

nu is de vraag uiteraard, kan je een form automatisch scherm vullend laten opstarten (dit heeft mijn voorkeur)? het moet wel werken op verschillende monitoren uiteraard. als dat niet kan, kan ik dan de form transparant maken....

en, wat zou de code daarvoor zijn.

ik heb via googel al heel veel dezelfde code gevonden voor transparant maken maar die werkt in excel 365 niet......

voor het scherm vullend opstarten van ene form heb ik niets gevonden....

alvast bedankt

Marc

Form = schermvullend

Even een voorbeeldje bijgeplaatst

wieter zei:

Form = schermvullend

Code:

Private Sub UserForm_Initialize()
    Application.DisplayFullScreen = True
    With UserForm1
        .Width = Application.ActiveWindow.Width
        .Height = Application.ActiveWindow.Height
        .Move 0, 0
    End With
End Sub

Even een voorbeeldje bijgeplaatst

Klik om te vergroten...

fantastic! thx

gewoon uit nieuwsgierigheid,

kan je een form ook transparant maken of niet?

grtn

Marc

k heb via googel al heel veel dezelfde code gevonden voor transparant maken maar die werkt in excel 365 niet

Klik om te vergroten...

Welke code heb je gevonden dan en waarom werkt het niet?

VenA zei:

Welke code heb je gevonden dan en waarom werkt het niet?

Klik om te vergroten...

dit is de code die ik vond:


------------------------------

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hWnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2&

Public hWnd As Long

Private Sub UserForm_Initialize()
Dim bytOpacity As Byte
bytOpacity = 192 ' variable keeping opacity setting
hWnd = FindWindow("ThunderDFrame", Me.Caption)
Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hWnd, 0, bytOpacity, LWA_ALPHA)
End Sub



--------------------------------------
Me.hWnd bvb wordt niet herkend, daar krijg ik bij het compileren een fout op.... hij kent de .hwnd niet

In een voorbeeld bestand

alphamax zei:

In een voorbeeld bestand

Klik om te vergroten...

DAnkuwel ALphamax!