鼠标指針形狀在Excel中有多種形式,實際上在操作系統中也有不同樣式,隻不過,我們在使用的時候并不注意如何修改。
本節就對Excel中的鼠标指針形式選擇,做一個介紹,沒有實際意義,但有時候也會用到。
如上圖所示,Excel給出了4種鼠标樣式:
常量 |
值 |
說明 |
xlDefault |
-4143 |
默認指針 |
xlIBeam |
3 |
I形指針 |
xlNorthwestArrow |
1 |
西北向箭頭指針 |
xlWait |
2 |
沙漏型指針 |
根據常量XlMousePointer來修改鼠标樣式,如此就用到了一個屬性Cursor,是Application對象下的一個屬性。
代碼如下:
'Application.Cursor = xlDefault '默認指針
'Application.Cursor = xlIBeam 'I形指針
'Application.Cursor = xlNorthwestArrow '西北向箭頭指針
'Application.Cursor = xlWait '沙漏型指針
示例代碼:
Private Sub SetCursorStyle()
Dim xobj As Object, ic As Integer
ic = Me.Shapes("List Box 3").ControlFormat.Value
Dim R As Range
Set R = Range("C2")
ic = R.Offset(ic, 0).Value
Application.Cursor = ic
End Sub
對過對Cursor屬性設置就把鼠标的樣式改變成4種任意一種了,具體效果可試一下,很明顯這要做在實際上并沒有多大的意義,最多也是提示一下,當前的計算機處于什麼工作狀态之下,僅此而已。
引申一下,如果想要改成自己想要的樣式,那就要對操作系統有一個認識了,其實實現起來也并不難。
歡迎關注、收藏
---END---
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!