セットするマクロ 'チャートシート cost に mouseupイベントをセットする例 Sub mouseup_set() Dim i As Long With ActiveWorkbook.VBProject For i = 1 To .VBComponents.Count If Mid(.VBComponents(i).Name, 1, 5) = "Graph" Then If .VBComponents(i).Properties("Name") = "cost" Then .VBComponents(i).CodeModule.AddFromFile "D:\vbadir\mouseup.bas" Exit For End If End If Next i End With End Sub
'mouseup.bas の内容 Private Sub Chart_MouseUp(ByVal Button As Long, _ ByVal Shift As Long, ByVal x As Long, ByVal y As Long) Dim ElemID As Long, Arg1 As Long, Arg2 As Long ' ここにMouseUp時の処理記述 End Sub
