DataLabel.ShowLegendKey Property (PowerPoint)
True if the data label legend key is visible. Read/write Boolean.
Version Added: PowerPoint 2007
expression .ShowLegendKey
expression A variable that represents a DataLabel object.
Note
Although the following code applies to Microsoft Word, you can readily modify it to apply to PowerPoint.
The following example sets the data labels for series one of the first chart in the active document to show values and the legend key.
With ActiveDocument.InlineShapes(1)
If .HasChart Then
.Chart.SeriesCollection(1).DataLabels. _
ShowLegendKey = True
.Chart.SeriesCollection(1).DataLabels.Type = xlShowValue
End If
End With