title: Orientation of DataLabels
body: <p>I have this code that I found on the internet to add the name from the legend to the point on the series in the chart. My problem has been trying to rotate the label so it is rotated 90 degrees. Would anybody know how to incorporate the orientation property into this code?</p>
  
  <p>Thank you</p>
  
  <pre><code>Dim mySrs As Series
  Dim nPts As Long
  
      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
  </code></pre>