Excel vba 如何设置鼠标指针样式,虽然很简单,但不一定知道

Excel vba 如何设置鼠标指针样式,虽然很简单,但不一定知道鼠标指针形状在Excel中有多种形式,实际上在操作系统中也有不同样式,只不过,我们在使用的时候并不注意如何修改。本节就对Excel中的鼠标指针形

欢迎大家来到IT世界,在知识的湖畔探索吧!

鼠标指针形状在Excel中有多种形式,实际上在操作系统中也有不同样式,只不过,我们在使用的时候并不注意如何修改。

本节就对Excel中的鼠标指针形式选择,做一个介绍,没有实际意义,但有时候也会用到。

Excel vba 如何设置鼠标指针样式,虽然很简单,但不一定知道

如上图所示,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 '沙漏型指针

欢迎大家来到IT世界,在知识的湖畔探索吧!

Excel vba 如何设置鼠标指针样式,虽然很简单,但不一定知道

示例代码:

欢迎大家来到IT世界,在知识的湖畔探索吧!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—

免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://itzsg.com/65642.html

(0)

相关推荐

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

联系我们YX

mu99908888

在线咨询: 微信交谈

邮件:itzsgw@126.com

工作时间:时刻准备着!

关注微信