Office: Maus genau auf Button legen

Hallo

bitte um Hilfe:

in der angehängten Excel Datei ist eine ist Userform, die mir einem Button aufgerufen wird.sobald sich die userform zeigt soll die Maus automatisch in die Mitte des dort eingerichteten Buttons platziert werden.

LG Barbara

:)

 

Hallo Barbara,

ist doch nur ein wenig Rechnerei ... *wink.gif*
Code:

Sabina

 

obsolet

 

Hallo,

ganz so einfach ist es nicht. Was, wenn der Benutzer die Skalierung auf 125% gestellt hat?

Option Explicit

Private Declare PtrSafe Function GetSystemMetrics Lib "user32.dll" ( _
ByVal nIndex As Long) As Long
Private Declare PtrSafe Function GetDesktopWindow Lib "user32.dll" () As LongPtr
Private Declare PtrSafe Function GetDC Lib "user32.dll" ( _
ByVal hwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function ReleaseDC Lib "user32.dll" ( _
ByVal hwnd As LongPtr, _
ByVal hdc As LongPtr) As Long
Private Declare PtrSafe Function SetCursorPos Lib "user32.dll" ( _
ByVal X As Long, _
ByVal Y As Long) As Long
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32.dll" ( _
ByVal hdc As LongPtr, _
ByVal nIndex As Long) As Long

Private Const SM_CXSCREEN As Long = 0&
Private Const SM_CYSCREEN As Long = 1&
Private Const LOGPIXELS_X As Long = 88&
Private Const LOGPIXELS_Y As Long = 90&

Private Sub CommandButton1_Click()
Call Unload(Object:=Me)
End Sub

Private Sub UserForm_Activate()
With CommandButton1
SetCursorPos (Left + .Left + .Width / 2) / GetResolution(LOGPIXELS_X), _
(Top + .Top + .Height) / GetResolution(LOGPIXELS_Y)
End With
End Sub

Private Function GetResolution(ByVal pvlngLogPixel As Long) As Single

Dim lngptrhWndDesk As LongPtr, lngptrhDCDesk As LongPtr
Dim lnglogPixel As Long

lngptrhWndDesk = GetDesktopWindow()
lngptrhDCDesk = GetDC(lngptrhWndDesk)

lnglogPixel = GetDeviceCaps(lngptrhDCDesk, pvlngLogPixel)

Call ReleaseDC(lngptrhWndDesk, lngptrhDCDesk)

GetResolution = 72 / lnglogPixel

End Function

 

Hallo Barbara,

SetFocus oder eine passende Tab-Folge reichen nicht aus?
Als Anwender mag ich es gar nicht wenn der Mauscursor plötzlich nicht mehr da ist, wo ich ihn gerade noch hatte. *entsetzt

 

Hallo Max,

so lange du mit "die Skalierung" den Zoom unten rechts meinst ... interessiert das die Userform ganz und gar nicht.

Aber du meinst sicher "die Skalierung" unter Desktop rechtsklick --> Anpassen --> Anzeige --> Lesbarkeit erleichtern ... oder wie das eben in Windows genannt wird. Aber selbst das, interessiert die Userform bei mir in 2016 nicht.
Ich habe hier auf meinem 27" Monitor 'Größer - 150%' eingestellt ... und trotzdem klappt mein Code ... Zufall ?

Selbst, wenn ... gehe ich nur noch von dem aus, was der TO im Thread schreibt.
Alles andere erwartet mein Mitdenken ... warum sollte ich ? *eek.gif*

Sabina

 

Hallo Sabina,

hast du nach der Verstellung der Skalierung deinen Rechner neu gestartet? Denn nur dann wird sie wirksam.

 

Hallo Max,

du meinst also tatsächlich die Einstellung im Bildschirmtreiber ...

Ich musste den Rechner nicht neu starten ... der steht schon eine halbe Ewigkeit auf 150%.

Sabina

 

Hallo Sabina,

bist du schwersichtig?

 

Hallo Max,

ich nicht ... aber meine Gerry, die normalerweise an diesem Bildschirm arbeitet ... die schon. *tongue.gif*

Ihre Brille ist das Modell "Maulwurf". *biggrin.gif*
... ist nicht von mir ... das sagt sie selbst !!! *boah

Sabina

 

Hallo,

funktioniert perfekt, auch auf dem zweiten Schirm. Danke für eure Hilfe,
liebe Grüße Barbara