Diagramm bei Zellberührung öffnen
13.12.2005 12:23:03
Karl-Heinz
ich habe es geschafft mit einem Togglebutton ein Diagramm aufzurufen und zu schließen. Möchte dieses aber durch die Berührung einer Zelle mit dem Mauszeiger erreichen. Mein Makro sieht im Moment so aus:
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Dia aus"
Worksheets("Tabelle2").ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Worksheets("Tabelle1").Select
Range("g7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.Visible = False
Else
ToggleButton1.Caption = "Dia"
ChartObjects.Delete
End If
End Sub
Wer kann mir helfen ?
Viele Grüße
Karl-Heinz
Anzeige