Tanner_2004
Well-known Member
- Joined
- Jun 1, 2010
- Messages
- 616
An MVP provided me with this code which does an awesome job of displaying the last data paint label (value). Because of the chart layout, I had to move my legend manually to the top right (and the orient it horizontally). I would like the last data label to appear slight below the legend. Presently, I must drag the data labels manually to position them where I want them (under the legend with is composed a 4 series). Thank you.
Code:
Sub LastPointLabel() Dim mySrs As Series
Dim nPts As Long
If ActiveChart Is Nothing Then
MsgBox "Please select a chart and try again.", vbExclamation
Else
For Each mySrs In ActiveChart.SeriesCollection
With mySrs
nPts = .Points.Count
mySrs.Points(nPts).ApplyDataLabels _
Type:=xlDataLabelsShowValue, _
AutoText:=True, LegendKey:=False
' mySrs.Points(nPts).DataLabel.Text = mySrs.Name
End With
Next
End If
End Sub