Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Blokada myszki

sanctus · Stały bywalec Excelforum **Pomógł:** 37 razy Posty: 307

Witam
Chciałbym zablokować ruch myszy w trakcie wykonywania procedury. W jaki sposób można to zrobić?

Artik · Wersja: Win Office 365 **Pomógł:** 3138 razy Posty: 10389

Możesz nieco szerzej opisać kontekst zadania? W czym przeszkadza ruch myszy w trakcie działania procedury?

Artik

sanctus · Stały bywalec Excelforum **Pomógł:** 37 razy Posty: 307

Problem jest z wykonywaniem procedury podczas, gdy kursor myszy jest nad wykresem.
Pod boczny guzik myszy podpięta jest procedura zmiany danych na wykresie. Trwa ok 13ms. Jeśli w trakcie wykonywania procedury będę poruszał myszą, wykres nie odświeża się, mimo zakończenia działania makra. Odświeży się dopiero po zatrzymaniu myszy.
Jeśli kursor myszy jest nad komórką wszystko działa poprawnie.
Dla wykresu nie ma zdarzenia mousemove. Application.screenupdating=true nie działa. Activechart.refresh nie działa.

Artik · Wersja: Win Office 365 **Pomógł:** 3138 razy Posty: 10389

Da się te słowa poprzeć jakimś testowym załącznikiem?

Artik

sanctus · Stały bywalec Excelforum **Pomógł:** 37 razy Posty: 307

Z załącznikiem będzie problem, projekt jest zbyt rozbudowany. Wygląda to na kolejny błąd Excela.

Tajan · **Pomógł:** 4767 razy Posty: 10469

Spróbuj na początku makra wstawić:

Kod:

Application.Interactive = False

a na końcu:

Kod:

Application.Interactive = True

Nie wiem czy pomoże bo objawy są nietypowe ale spróbować można.

sanctus · Stały bywalec Excelforum **Pomógł:** 37 razy Posty: 307

Interactive nie pomaga.

sanctus · Stały bywalec Excelforum **Pomógł:** 37 razy Posty: 307

Zlokalizowałem co powoduje ten problem.
1. W każdym przypadku, gdy włączone jest ProtectSelection = True
2. W każdym przypadku, gdy w procedurze jest .activate wykresu
2. W każdym przypadku, gdy na wykresie mam serie wypełnione tablicą Double i Variant.

Jeśli ProtectSelection = False i nie ma aktywacji wykresu oraz wszystkie dane na wykresie są typu Double, problem z odświeżaniem podczas poruszania myszy znika.
W tablicy variant mam tylko dane typu double lub puste, wiec to dość dziwne zachowanie excela.

Marecki · Wysłany: 07-04-2021, 15:49

Moim zdaniem źle jest napisana procedura.
W większości przypadków można się pozbyć metod Selection, czy też Activate.
Niestety bez konkretnego przykładu nie da się tego poprawić.

sanctus · Stały bywalec Excelforum **Pomógł:** 37 razy Posty: 307

Maciej Gonet · Wysłany: 07-04-2021, 20:06

Trudno jest cokolwiek radzić nie widząc kodu i nie mając możliwości sprawdzenia.
Jeszcze pomyślałem o funkcji ukrywającej kursor myszy (na obszarze okna Excela):

Kod:

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Mysz działa normalnie, niewidoczny jest tylko jej kursor. Nie wiem czy to w czymkolwiek pomoże, ale można spróbować.

sanctus · Stały bywalec Excelforum **Pomógł:** 37 razy Posty: 307

Ukrycie kursora oczywiście nie pomaga. Zdarzenia mam zdefiniowane do wykresów, ale mimo że wszystkie wyłączyłem problem pozostał. Nie pomaga nawet ukrycie wykresu na początku procedury.
Wszystko działa jak należy jeśli kursor myszy porusza się poza obszarem wykresu lub jeśli na wykres nałożę transparentny kształt.

Artik · Wersja: Win Office 365 **Pomógł:** 3138 razy Posty: 10389

Jako, że nie ma na czym testować, to jeszcze jeden strzał (mój ostatni) z zawiązanymi oczami.

Kod:

Option Explicit

Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long

Type POINTAPI
X_Pos As Long
Y_Pos As Long
End Type

Sub Test()
Dim i As Long
Dim a
Dim x As Long
Dim y As Long
Dim Hold As POINTAPI

'zapamiętaj pozycję kursora
GetCursorPos Hold
x = Hold.X_Pos
y = Hold.Y_Pos

'ustaw kursor w lewym górnym rogu ekranu
SetCursorPos 0, 0

'wykonaj swoją procedurę
For i = 1 To 10 ^ 7
a = (Sqr(i) + Sqr(i / 2)) ^ 2
Next i

'przywróć pierwotną pozycję kursora
SetCursorPos x, y
End Sub

Ponieważ Twoja procedura wykonuje się krótko prawie nie ma szans, by użytkownik w tym czasie (13 ms) przesunął kursor myszy nad wykres. Czas działania procedury specjalnie wydłużyłem, by dać Ci szansę na przesunięcie kursora w trakcie działania makra.

Artik

apollo · ExcelSpec **Pomógł:** 1317 razy Posty: 4544

Jeśli kod wykonuje się bardzo długo lub użytkownik działa bardzo szybko to

Kod:

Option Explicit

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

#If VBA7 Then
Private Declare PtrSafe Function ClipCursor Lib "user32" (lpRect As Any) As Long
#Else
Private Declare Function ClipCursor Lib "user32.dll" (lpRect As Any) As Long
#End If

Sub test()
Dim i As Long, a, rc As RECT
rc.Right = 1
rc.Bottom = 1
ClipCursor rc
For i = 1 To 2 * 10 ^ 7
a = (Sqr(i) + Sqr(i / 2)) ^ 2
Next i
ClipCursor ByVal 0
End Sub

Nie masz szansy na przesunięcie kursora w trakcie działania makra.

sanctus · Stały bywalec Excelforum **Pomógł:** 37 razy Posty: 307

Artik testowałem wcześniej to rozwiązanie. Nie działa tak jak by się można tego spodziewać. Wysłanie kursora poza obszar wykresu rozwiązuje problem, jeśli kursor nie powraca w miejsce początkowe. Jeśli powrócimy kursorem w miejscu pierwotne, wówczas wykres nie odświeży się. To jest jakiś problem z plotarea. Gdy kursor najedzie poza ten obszar np na chartarea, tytuł wykresu, czy range od razu następuje oświeżenie danych.