Makro for å sette kurvefarge på en serie i en graf

[einar v]

Prøver å lage en makro for å sette kurvefarge på en serie og tilordne
denne makroen til en menyknapp.
Alt funker greit bortsett fra en ting: Hvordan hente resultatet av
fargevalget!

Noen som kan gi et tips?

Sub Kurvefarge()
If TypeName(Selection) <> "Series" Then
ok = MsgBox("No series selected", vbOKOnly)
Else
Dim s As Series
Set s = Selection

Application.CommandBars("Formatting").Controls("&Fyllfarge").Execute
Dim ColorIndex As Integer
ColorIndex = ???? HVORDAN FINNE RESULTATET AV VALGET
OVENFOR ???
With s
.Border.ColorIndex = ColorIndex
.MarkerBackgroundColorIndex = .Border.ColorIndex
.MarkerForegroundColorIndex = .Border.ColorIndex
End With
End If
End Sub