Excel VBA教程:MouseUp事件

当在图表上释放鼠标按钮时产生此事件。

Private Sub object_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)

object   在类模块中带有事件声明的 Chart 类型对象。有关详细信息,请参阅嵌入式图表事件的用法

Button   释放的鼠标按键。可为以下 XlMouseButton 常量之一:xlNoButton、xlPrimaryButton、xlSecondaryButton 或 xlMiddleButton。

Shift   此事件产生时,Shift、Ctrl 和 Alt 的状态。可以是下列取值之一或者某几个值的和。

含义
0(零) 没有键按下
1 Shift
2 Ctrl
4 Alt

X   鼠标指针在图表对象的客户坐标系中的 X 坐标。

Y   鼠标指针在图表对象的客户坐标系中的 Y 坐标。

Excel VBA教程:MouseUp事件·示例

当在图表上释放鼠标按钮时,运行本示例。


Private Sub Chart_MouseUp(ByVal Button As Long, _
        ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
    MsgBox "Button = " & Button & chr$(13) & _
        "Shift = " & Shift & chr$(13) & _
        "X = " & X & " Y = " & Y
End Sub

上页:Excel VBA教程:MouseMove事件 下页:Excel VBA教程:NewSheet事件

Excel VBA教程:MouseUp事件

Excel VBA教程:NewSheet事件 Excel VBA教程:NewWorkbook事件
Excel VBA教程:Open事件 Excel VBA教程:PivotTableCloseConnection事件
Excel VBA教程:PivotTableOpenConnection事件 Excel VBA教程:PivotTableUpdate事件
Excel VBA教程:Resize事件 Excel VBA教程:Select事件
Excel VBA教程:SelectionChange事件 Excel VBA教程:SeriesChange事件
Excel VBA教程:SheetActivate事件 Excel VBA教程:SheetBeforeDoubleClick事件
Excel VBA教程:SheetBeforeRightClick事件 Excel VBA教程:SheetCalculate事件
Excel VBA教程:SheetChange事件 Excel VBA教程:SheetDeactivate事件
Excel VBA教程:SheetFollowHyperlink事件 Excel VBA教程:SheetPivotTableUpdate事件
Excel VBA教程:SheetSelectionChange事件 Excel VBA教程:WindowActivate事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号