troubleshooting Question

How to rotate labels? VBA Chart Excel

Avatar of Rowel Virgo
Rowel VirgoFlag for Philippines asked on
Programming Languages-OtherProgrammingMicrosoft ExcelVBA
2 Comments1 Solution410 ViewsLast Modified:
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

SampleDatabase-Monitoring-Size-January-20.xlsm
ASKER CERTIFIED SOLUTION
Join our community to see this answer!
Unlock 1 Answer and 2 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 2 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros