Button VBA中的光泽按钮_Button_Excel_Vba

Button VBA中的光泽按钮

button excel vba

Button VBA中的光泽按钮,button,excel,vba,Button,Excel,Vba,在VBA Excel宏中，是否可以使用光泽按钮而不是默认的浅蓝色按钮例如：我有闪亮的光泽按钮，可以在VBA中使用吗？而不是。按照本文的建议尝试此操作。不确定是否可以添加。它还可能需要vb6运行时。听起来很麻烦，不确定是否值得。。。按照本文的建议尝试此操作。不确定是否可以添加。它还可能需要vb6运行时。听起来很麻烦，不确定是否值得。。。按钮太无聊了您可以将外观更好的对象作为图片或形状复制到工作表中。然后可以将宏指定给这些对象，或将超链接指定给这些对象，等等也许没有ActiveX强大，

在VBA Excel宏中，是否可以使用光泽按钮而不是默认的浅蓝色按钮

例如：我有闪亮的光泽按钮，可以在VBA中使用吗？
而不是。

按照本文的建议尝试此操作。不确定是否可以添加。它还可能需要vb6运行时。听起来很麻烦，不确定是否值得。。。

按照本文的建议尝试此操作。不确定是否可以添加。它还可能需要vb6运行时。听起来很麻烦，不确定是否值得。。。按钮太无聊了

您可以将外观更好的对象作为图片或形状复制到工作表中。然后可以将宏指定给这些对象，或将超链接指定给这些对象，等等

也许没有ActiveX强大，但put仍然很有用，并且具有更好的视觉效果

按钮太无聊了

您可以将外观更好的对象作为图片或形状复制到工作表中。然后可以将宏指定给这些对象，或将超链接指定给这些对象，等等

也许没有ActiveX强大，但put仍然很有用，并且具有更好的视觉效果

这是一点工作，但可以做到。正如Gary的学生所建议的，您可以使用图片（通过两个图像控件）。转到此站点（）并设计一个按钮，使其适合您的情况，然后下载它

使用这两个.jpg图像，您需要连接一些事件：

1）将要用作默认按钮图像的图像设置为Image1控件的picture属性。将Image1的大小设置为尽可能接近按钮的大小，并将BorderStyle设置为None

2）将要用作鼠标悬停按钮图像的图像设置为Image2控件的picture属性。同样，将Image2的大小设置为尽可能接近按钮的大小，并将BorderStyle设置为None

3）使用空白图像控件作为背景。使控件的大小略大于按钮图像的大小。覆盖两个图像控件（因此它们都具有相同的.Top和.Left属性值），并且位于图像3（背景图像）的顶部

3a）注意，重要的是Image1位于顶部才能开始（如果Image1位于顶部，则可以使用Order选项将Image2发送到Image1后面）。两个图像都应位于图像3的顶部

4）使用Image1的MouseMove事件，如下所示：

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Image1.Visible = False
    Image2.Visible = True
End Sub

5）使用Image3的MouseMove事件，如下所示：

Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Image1.Visible = True
    Image2.Visible = False
End Sub

6）将Image2的image click事件设置为执行您希望按钮执行的任何操作

同样，这是一项工作，但如果你花时间来设置它，它确实会产生一个很好的视觉效果。此外，您还可以处理Image2的“SpecialFect”，以提供按钮被按下的感觉

如果有人能推荐一个简单的公共共享文件托管站点，我将非常乐意发布我的示例工作簿，演示上述步骤。

这是一项工作，但可以完成。正如Gary的学生所建议的，您可以使用图片（通过两个图像控件）。转到此站点（）并设计一个按钮，使其适合您的情况，然后下载它