title image


Smiley Re: UserForm nahe Mauszeiger öffnen
Hallo Andreas,

so geht's:

Option Explicit



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



Private Type POINTAPI

x As Long

y As Long

End Type



Public Sub Userform_Start()

Dim myCursorPos As POINTAPI

GetCursorPos myCursorPos

With UserForm1

.StartUpPosition = 0

.Left = myCursorPos.x / 1.345

.Top = myCursorPos.y / 1.345

.Show

End With

End Sub



Code eingefügt mit: Excel Code Jeanie



Gruß

Nepumuk
Gruß
Nepumuk


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: