excel图表制作：制作漂亮的用户窗体按钮-英雄云拓展知识分享

在很多场合，我们都能看到这样的效果，当鼠标移动到某个元素上面时，该元素会变成另外一种色彩，到达突出的效果。下面，我们来实现当鼠标移动到用户窗体按钮上时，会使用色彩高亮显示，让用户窗体更生动，以下图1所示。

图1

其实，你在图1中看到的按钮其实不是用户窗体内置的传统命令按钮，而是使用图象控件来制作的。由于图象是静态的，在运行时不能更改色彩，因此每一个按钮都由两个图象组成，一个图象代表鼠标悬浮在按钮上的状态，另外一个图象代表鼠标未悬浮在按钮上的状态。然后，使用VBA代码来针对鼠标的位置切换这两个图象的可见性，从而实现按钮的动态变化。

在Excel工作表中创建按钮图象

使用文本框在Excel中创建按钮图象。本例中，将使用绿色和白色/灰色格式来唆使用户是不是将鼠标悬停在特定按钮上。下图2是我制作的用于按钮图象的文本框。

图2

这里要注意的是，4个文本框的大小和格式设置都必须完全相同。

在用户窗体中绘制图象按钮

在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

当鼠标移动到取消按钮上时，绿色按钮显示，白色按钮隐藏。