Office: UserForm Popup per Klick schliessen (nicht X!)

EarlFred · 18. Oktober 2011

Hallo,

Bestenfalls öffnet sich das Fenster rechts unterhalb der Mausposition.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dem entnehme ich, dass Du mit Deinem Code bereits "erfolgreich" gearbeitet hast. Warum sollte der neue Code nun woanders stehen? Passe ihn genauso an, wie Deinen...

Grüße
EarlFred

qzam · 19. Oktober 2011

Nein, leider war ich absolut unerfolgreich, da mein Wissensstand über VBA auch dem eines Eichhörnchens gleicht.
Mit dem "Bestenfalls..." meinte ich, dass es so sein sollte wenn möglich - ich aber keine Ahnung habe wie man das hinbekommt.

EarlFred · 19. Oktober 2011

Hallo,

Allgemeines Modul:
Code:

Private Declare Function GetDC Lib "user32" _
(ByVal hwnd As Long) As Long

Private Declare Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, _
ByVal hdc As Long) As Long

Private Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, _
ByVal nIndex As Long) As Long

Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Const LOGPIXELSX As Long = 88
Private Const LOGPIXELSY As Long = 90

Sub Schaubild_Setzkraft_Beiklick()
Dim pTargetPoint As POINTAPI
Dim lRetVal As Long
Dim dblFaktorX As Double, dblFaktorY As Double

lRetVal = GetCursorPos(pTargetPoint)
hdc = GetDC(0)

dblFaktorX = GetDeviceCaps(hdc, LOGPIXELSX) / 72
dblFaktorY = GetDeviceCaps(hdc, LOGPIXELSY) / 72

Schaubild_Setzkraft.Show vbModeless
Schaubild_Setzkraft.Top = pTargetPoint.Y / dblFaktorY
Schaubild_Setzkraft.Left = pTargetPoint.X / dblFaktorX

ReleaseDC 0, hdc
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

qzam · 19. Oktober 2011

Hallo,

leider funktioniert das bei mir nicht *frown.gif*
Ich habe den Code eingefügt und nur die Referenz auf das UserForm angepasst. Scheinbar ist das i.O., der Debugger meldet keine Fehler etc.... Leider aber werden die Bilder immernoch genau an der gleichen Standardposition dargestellt. *rolleyes.gif*

/edit: oh, habe mal wieder gefailt - hatte den Code nicht überschrieben, sondern praktisch doppelt im Modul. Somit wurden die Änderungen hinfällig. Funktioniert jetzt einwandfrei!

Vielen vielen Dank für deine Mühen und investierte Zeit, du hast mir sehr weitergeholfen, nur zu empfehlen! *Smilie

Grüße, Marco

Office: UserForm Popup per Klick schliessen (nicht X!)

UserForm Popup per Klick schliessen (nicht X!)

UserForm Popup per Klick schliessen (nicht X!)

UserForm Popup per Klick schliessen (nicht X!)

UserForm Popup per Klick schliessen (nicht X!) - Similar Threads - UserForm Popup Klick

Userform unterdrücken - wenn Datei von andere Datei geöffnet wird

UserForm in Office 2019 für MacOS fehlt

Userform Login Benutzername in Zelle schreiben

Datum in Userform formatieren

UserForm zum bearbeiten von Tabellen und speichern

VBA Code Tabellenblatt kopieren und UserForm

Userform öffnen bei Zelle mit bestimmter Formatierung