Diagramm-Position auf Tabellenblatt

Sub diagramm_finden()
Dim graf As ChartObject
diagramm = ActiveCell.Value
Sheets("Grafiken 2007").Select
For Each graf In ActiveSheet.ChartObjects
graf.Activate
ActiveChart.ChartTitle.Select
If Selection.Characters.Text = diagramm Then
ActiveChart.ChartArea.Select
Exit For
End If
Next graf
End Sub

Was mir nun noch fehlt, ist ein Sprung zum gefundenen Diagramm, so dass die linke obere Ecke genau in der Ecke des Fensters landet.
Würde mich freuen, wenn mir jemand weiterhelfen könnte..
Vielen Dank im Voraus,
Fabian