Hi,
im Kreis-Diagramm so:
Private Sub Chart_BeforeDoubleClick(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)
On Error Resume Next
ActiveChart.SeriesCollection(Arg1).Points(Arg2).Interior.Color = RGB(255, 255, 0)
Cancel = True
End Sub
im Netzdiagramm so:
Private Sub Chart_BeforeDoubleClick(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)
On Error Resume Next
ActiveChart.SeriesCollection(Arg1).Interior.Color = RGB(255, 255, 0)
Cancel = True
End Sub
Vorraussetzung: Das Diagramm ist als eigenständiges Blatt platziert und der Code steht in dessen Modul.
Außerdem musst du im Kreisdiagramm erst ein einzelnes Segment anklicken (auswählen), bevor du darauf (oder woanders) doppelklicken kannst.
Und "runde Ecken" gibt es nicht. Zumindest nicht im Netzdiagramm. Oder doch ?!?
|