excel图表制作:制作漂亮的用户窗体按钮
发布时间:2022-10-11 04:47:50
在很多场合,我们都能看到这样的效果,当鼠标移动到某个元素上面时,该元素会变成另外一种颜色,达到强调的效果。下面,我们来实现当鼠标移动到用户窗体按钮上时,会使用颜色高亮显示,让用户窗体更生动,如下图1所示。
图1
其实,你在图1中看到的按钮并不是用户窗体内置的传统命令按钮,而是使用图像控件来制作的。由于图像是静态的,在运行时不能更改颜色,因此每个按钮都由两个图像组成,一个图像代表鼠标悬浮在按钮上的状态,另一个图像代表鼠标未悬浮在按钮上的状态。然后,使用VBA代码来根据鼠标的位置切换这两个图像的可见性,从而实现按钮的动态变化。
在Excel工作表中创建按钮图像
使用文本框在Excel中创建按钮图像。本例中,将使用绿色和白色/灰色格式来指示用户是否将鼠标悬停在特定按钮上。下图2是我制作的用于按钮图像的文本框。
图2
这里要注意的是,四个文本框的大小和格式设置都必须完全相同。
在用户窗体中绘制图像按钮
在VBE中,插入一个用户窗体,在其中放置一个标签控件、一个文本框控件以及一个图像控件,并调整成合适的大小和排列,如下图3所示。
图3
在Excel工作表中,选择并复制相应的文本框(这里是绿底的“确定”文本框)。然后,回到VBE用户窗体,选中图像控件,在左侧的“属性”窗口中找到“Picture”,选择其内容(None),按Ctrl+v组合键,此时,该属性的值由“(None)”变为“(Bitmap)”。同时,可以看到图像出现在控件中,如下图4所示。
图4
仍然选中该图像控件,在其属性窗口中将BackStyle设置成0-fmBorderStyleNone,BackStyle设置成0-fmBackStyleTransparent,如下图5所示。
图5
复制一个刚才绘制的图像控件,如下图6所示。
图6
这个图像将代码鼠标不在按钮上时的状态。在工作表中复制相应的文本框(这里是白底的“确定”文本框),然后按照上文所示的操作将其粘贴到该控件的Picture属性中,得到一个白底灰字的图像按钮,如下图7所示。
图7
接着,将其拖放到绿底白字的按钮上方,
结果如下图8所示。
图8
按照上面的操作,再创建一个名为“取消”的图像按钮,如下图9所示。
图9
将这些按钮分别命名,以方便在代码中使用:
白色确定按钮:OKButtonInactive
绿色确定按钮:OKButton
白色取消按钮:CancelButtonInactive
绿色取消按钮:CancelButton
编写代码
使用MouseMove事件来响应鼠标的动作,这个事件当鼠标移动到特定控件中时,执行其中的代码。
下面是确定按钮的MouseMove事件代码:
Private SubOKButtonInactive_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,ByVal X As Single, ByVal Y As Single) Me.CancelButtoninactive.Visible = True Me.OKButtonInactive.Visible = FalseEnd Sub
当鼠标移动到确定按钮上时,绿色按钮显示,白色按钮隐藏。
下面是取消按钮的MouseMove事件代码:
Private SubCancelButtoninactive_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,ByVal X As Single, ByVal Y As Single) Me.CancelButtoninactive.Visible = False Me.OKButtonInactive.Visible = TrueEnd Sub
当鼠标移动到取消按钮上时,绿色按钮显示,白色按钮隐藏。
猜你喜欢
- 我们除了可以将word表格中的多个单元格进行合并外,也可以通过word表格的拆分单元格和表格功能将一个单元格和拆分为多个单元格,从而方便对表
- 你是否也对Word的打印功能十分的了解呢?尤其是你知道如何实现逆而打印吗?今天,就给大家介绍一些Word中的各种打印技巧:大家都知道,尤其是
- Excel表格的功能非常强大,特别是宏的功能更厉害,但是对于初级者而言的话,只需要了解最基础的初级功能就可以了,下面小编就为大家介绍Exce
- excel中列数太多又不能删除怎么办?很多朋友都碰到这类问题却不知道怎么解决,所以下面小编就为大家介绍一下,来看看吧excel列数太多了怎么
- Word中怎样打出数学分式?在我们的日常学习及办公中,经常会使用到Word的编辑文字,有时候甚至还需要在文档添加数学公式中的分子式,那么应该
- 应该怎样对联想计算机win10系统进行截图?当我们工作时,快捷键截图可以节省更多的担忧,节省时间和方便,今天小边整理了相关的截图方法,我希望
- 有Excel中有一个很方便的功能,就是可以通过拖拉单元格的右下角句柄自动生成相应序列,下面小编就为大家详细介绍el中填充的生成方法,不会的朋
- 很多人在使用word2013时,常会遇到文档中有网格线的情况。这些网格线总是困扰着,众多需要编辑文档的朋友。有没有方法可以轻松去除这些烦人的
- wps文字怎么查找和替换呢?如果在处理很长的文档时,想要同时修改某一隔字或标点的时候,我们就可以使用wps文字查找和替换功能,这样就能快速找
- excel工作簿中有很多工作表,想要将需要的工作表选定以后删除没有选定的工作表,该怎么实现呢?下面我们就来看看使用方方格子实现的教程,需要的
- visio灵感触发图该怎么绘制?灵感触发图感觉类似于头脑风暴中绘制的图形,思路很清晰,很有层次感,但是bisio中怎么绘制呢?下面分享vis
- Word下划线在实际中很常用,不少伙伴使用下划线也遇到不少问题,有的下划线添加不了,下面就给大家分享word下划线不显示的解决方案。遇到下划
- 很多情况下我们在Excel单元格中输入的数据是含有固定内容的,比如来自同一区县的身份证号码的前六位数字一定是相同的,或者来自同一县市的人的联
- 在word文档中插入SmartArt图形后,根据需要输入一些文字流程的相关内容,在SmartArt图形中输入文字具体操作如下。1、打开文本窗
- word2010制作小学语文试题时,会为汉字添加拼音,并且要将拼音排到汉字的右侧,虽然可使用Word的“拼音指南”功能为汉字添加拼音,可是这
- Word怎么设置页码?Word是Office中最多人使用也最常用的工具,但是很多人还是不会使用Word设置页码,或者从指定页设置页码。下面让
- 很多朋友不清楚Word2016最近打开文档记录怎么删除?下面小编给大家带来Word2016最近打开文档记录删除方法,一起来看吧在使用Word
- officeword打不开文档怎么办,今天,小编就教大家如何解决问题的方法!Officeword打不开的方法如下:打开”电脑管家“。进入“电
- win10系统升级失败怎么办呢?很多用户对此还不是很清楚,小编这里就给大家带来有关win10系统升级失败怎么办的回答,希望能够对大家有所帮助
- word设置了每页行数每行字数却与实际不同怎么办?在使用word进行文档编辑的时候我们经常会遇到需要对文章的每页行数与每行字数进行设定,显示