We help IT Professionals succeed at work.

How to rotate labels? VBA Chart Excel

379 Views
Last Modified: 2018-02-02
Hi everyone, can I ask how can I rotate the label of this chart using VBA?

Thank you.

This is my codes:

Private Sub OptionButton1_Click()
ActiveSheet.Range("F2").Select
Dim wks As Worksheet
For Each wks In Worksheets
    If wks.ChartObjects.Count > 0 Then
       wks.ChartObjects.Delete
    End If
Next wks

Dim rng As Range
Dim cht As ChartObject
Set rng = ActiveWorkbook.Sheets("REPORT DATA").Range("D2:AI10")
  Set cht = ActiveSheet.ChartObjects.Add( _
    Left:=ActiveCell.Left, _
    Width:=1180, _
    Top:=ActiveCell.Top, _
    Height:=548)
  If Range("I38") >= Range("K38") Then
  MsgBox "Wrong date value, please check your enrty.", vbCritical, "Error"
  Else
  cht.Chart.SetSourceData Source:=rng
  cht.Chart.ChartType = xlXYScatterLines
  cht.Chart.SetElement (msoElementDataLabelCenter)
  cht.Chart.ChartArea.Format.TextFrame2.TextRange.Font.size = 8
  cht.Chart.HasTitle = True
  cht.Chart.ChartTitle.Text = "LEONARDO - MounterTrace Size with Index Line 1 to 8"
  cht.Chart.Axes(xlCategory).MinimumScale = Range("I38")
  cht.Chart.Axes(xlCategory).MaximumScale = Range("K38")
  cht.Chart.ChartArea.Format.Fill.Visible = msoFalse
  cht.Chart.PlotArea.Format.Fill.Visible = msoFalse
  End If
End Sub

Open in new window


SampleDatabase-Monitoring-Size-January-20.xlsm
Comment
Watch Question

CERTIFIED EXPERT
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION
Rowel VirgoVisual Studio .NET

Author

Commented:
Already added to my file. Thanks it works...
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.