expression.Separator
expression Required. An expression that returns a ChDataLabels object.
Example
This example changes the data-label separator character for the specified series.
Sub FormatDataLabels()
Dim dlDataLabels
' Add data labels to the first series.
Set dlDataLabels = ChartSpace1.Charts(0).SeriesCollection(0) _
.DataLabelsCollection.Add
' Display the category name in the data labels.
dlDataLabels.HasCategoryName = True
' Set the data label seperator.
dlDataLabels.Separator = ":"
End Sub