Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Transparente UserForm ohne Rahmen

Transparente UserForm ohne Rahmen
03.01.2005 11:00:32
Tobias
Hallo zusammen,
Ich habe in einem Workbook eine UserForm die ich abhängig vom dem
Hintergrundbild transparent machen kann. funktioniert auch alles wunderbar,
doch der Rahmen um die UserForm bleibt bestehen...
Weiss jemand wie mein Problem zu lösen ist?
Gruss
-Tobias

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Transparente UserForm ohne Rahmen
Tobias
Hallo André
Danke für Dein Tipp, hat aber leider nichts geholfen,
muss mich vielleicht präziser ausdrücken.
Eine UserForm in VBA ist immer dreidimensional und genau
der Rahmen der die UserForm eben dreidimensional macht erscheint
dann auch, obschon alles transparent ist.
Die UserForm zweidimensional zu machen wäre eine mögliche Lösung,
oder gar der ganze "Rahmen" verschwinden zu lassen.
Gruss
Tobias
Anzeige
AW: Transparente UserForm ohne Rahmen
HerbertH
hallo Tobias,
wenn ich richtig gesehen habe,gibt es bei diesem Code
keinen Rahmen mehr...


'in das Modul der Userform
Option Explicit
Private Declare Function CreateRoundRectRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long, _
ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
    Me.Width = 350: Me.Height = 350
    Commandbutton1.Left = (Me.Width - Commandbutton1.Width) / 3
    Commandbutton1.Top = Me.Height * 0.6
End Sub
Private Sub UserForm_Activate()
    Dim x As Long, y As Long, n As Long, mWnd As Long
    x = Me.Width
    y = Me.Height
    n = 4
    mWnd = FindWindow(vbNullString, Me.Name)
    SetWindowRgn mWnd, CreateRoundRectRgn(2, 2, x, y, n, n), True
End Sub

     du mußt vor dem ersten Test gleich eine Schaltfläche zum
Schließen der Userform platzieren, weil das Schließkreuz
nicht mehr vorhanden ist...
gruß Herbert
Anzeige
AW: Transparente UserForm ohne Rahmen
Tobias
Besten Dank Herbert!
Das ist genau das, nachdem ich gesucht habe!!
Gruss
-Tobias

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige