请教有关excel vba代码?!

发布网友发布时间：2024-10-01 21:47

共3个回答

热心网友时间：2024-10-07 09:10

1、打开控件工具栏，分别拖出“图像”和“标签”两个控件，假设名称分别为Image1与Label1。
2、右键分别查看属性，图像属性中选择你要显示的图标路径；标签标题填写“添加数据”，并将可见属性设为默认False，不可见。
3、调整好标签位置。
4、在图像上右键选择“查看代码”，按下面代码：
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Visible = True
End Sub
5、上面只实现了鼠标移动到图标上显示说明文字，鼠标移出来不显示比较难，想了半天，又查了资料，只能这样：再拖出一个标签控件，控件名为Label2，画得大一些，覆盖之前的图像和标签，放到最下层，标题文字设为空。在Label2上右键选择“查看代码”，按下面代码：
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Visible = False
End Sub

热心网友时间：2024-10-07 09:10

自定义按钮

热心网友时间：2024-10-07 09:07

如果这个控件是按钮，则在这个控件中写入
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "请添加数据即可"
End Sub