You can do that with a code like this

Code:
Private Sub Workbook_Open()
    Worksheets(1).Shapes(1).OnAction = "MyMacro" 'Replace the indices with the name of the worksheet and the chartobject
End Sub
where 'MyMacro' is the macro you want to assign...