Excel多级标签图表纵轴文本横向设置、加粗及VBA代码问题解决

Fixing Chart Name Recognition Issue #

Your original code fails because the hardcoded chart name "BASE" might not match your chart's actual name in Excel. To fix this:

• Option 1: Use the active chart (select your chart first before running the macro)
• Option 2: Verify the exact chart name: Right-click the chart → Select "Format Chart Area" → Check the "Chart Name" field in the right-side pane.

Modified VBA Code (Full Solution) #

This code will:

1. Target your chart without relying on a potentially incorrect hardcoded name
2. Change vertical axis tick label orientation to horizontal
3. Bold any tick label containing "职业场景"
4. Ensure no chart title is added (per your requirement)

Sub FormatVerticalAxisLabels()
    Dim chtObj As ChartObject
    Dim ax As Axis
    Dim tickLabel As TickLabel
    Dim labelText As String
    
    ' Use active chart (select chart first before running)
    If ActiveChart Is Nothing Then
        MsgBox "Please select a chart first!", vbExclamation
        Exit Sub
    End If
    Set chtObj = ActiveChart.Parent
    
    ' Remove existing chart title if present
    If chtObj.Chart.HasTitle Then
        chtObj.Chart.ChartTitle.Delete
    End If
    
    ' Target vertical axis: use xlValue for column charts, xlCategory for bar charts
    Set ax = chtObj.Chart.Axes(xlValue)
    
    ' Set tick label orientation to horizontal
    ax.TickLabelOrientation = xlTickLabelOrientationHorizontal
    
    ' Bold labels containing "职业场景"
    For Each tickLabel In ax.TickLabels
        labelText = tickLabel.Text
        If InStr(labelText, "职业场景") > 0 Then
            tickLabel.Font.Bold = True
        End If
    Next tickLabel
End Sub

Key Adjustments: #

• Axis Selection: If your vertical axis is the category axis (common in bar charts), replace xlValue with xlCategory in the code.
• Specific Chart Name: If you want to target a chart by name instead of using the active chart, replace the active chart section with:

  ' Replace "YourExactChartName" with your chart's real name
  Set chtObj = ActiveSheet.ChartObjects("YourExactChartName")
  

• Multilevel Labels: This code works with your "工作情况" and "时间性" multilevel labels since it processes each tick label individually.

内容的提问来源于stack exchange，提问作者Nacim Ouahes