Grafik Option Explicit zusweisen

Private Sub CommandButton1_Click()
If Sheets("SETTING").Range("D2").Value = "Outlet" Then
Call to_outlets
Else
Call to_concepts
End If
End Sub

Jetzt soll dies aber eben keinem CommandButton zugewiesen werden, sondern einer grafik.
Geht das?
Und wenn ja, wie?
Vielen Dank und viele Grüsse
Benjamin