鼠标指针形状在Excel中有多种形式,实际上在操作系统中也有不同样式,只不过,我们在使用的时候并不注意如何修改。 本节就对Excel中的鼠标指针形式选择,做一个介绍,没有实际意义,但有时候也会用到。 ![](http://image109.360doc.com/DownloadImg/2022/02/1515/239476883_1_20220215030423319_wm.jpeg)
如上图所示,Excel给出了4种鼠标样式: ![](http://image109.360doc.com/DownloadImg/2022/02/1515/239476883_2_20220215030423835_wm.jpeg)
根据常量XlMousePointer来修改鼠标样式,如此就用到了一个属性Cursor,是Application对象下的一个属性。 代码如下: 'Application.Cursor = xlDefault '默认指针 'Application.Cursor = xlIBeam 'I形指针 'Application.Cursor = xlNorthwestArrow '西北向箭头指针 'Application.Cursor = xlWait '沙漏型指针
![](http://image109.360doc.com/DownloadImg/2022/02/1515/239476883_3_202202150304247_wm.jpeg)
示例代码: 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种任意一种了,具体效果可试一下,很明显这要做在实际上并没有多大的意义,最多也是提示一下,当前的计算机处于什么工作状态之下,仅此而已。 引申一下,如果想要改成自己想要的样式,那就要对操作系统有一个认识了,其实实现起来也并不难。
|