FAQ`s Ofimatica

[Pablus00]

Les dejo una macro para ocultar el puntero del mouse en excel mientras corre nuestra macro, solo un detalle ....

Private Declare Function ShowCursor Lib "USER32" _
(ByVal fShow As Integer) As Integer

Sub hide()
While ShowCursor(False) >= 0
Wend
End Sub

Sub show()
While ShowCursor(True) < 0
Wend
End Sub

Ojo que al ocultarlo no se ve en excel ni en la ventana edicion de VBA por lo que tengan cuidado para volver a mostrarlo