修改图表坐标轴字体透明度的VBA代码报错，求解决方案

问题根源 #

录制宏生成的代码依赖Selection和TextFrame2，但坐标轴对象的字体格式无法通过ChartFormat.TextFrame2访问，这是触发报错的核心原因。坐标轴的刻度文字需要通过TickLabels属性来操作。

正确实现代码 #

直接定位图表与坐标轴对象，操作TickLabels的填充透明度即可，同时避免使用Select/Activate让代码更稳定：

Sub SetAxisFontTransparent()
    Dim chtObj As ChartObject
    Dim targetAxis As Axis
    
    ' 获取指定图表对象
    Set chtObj = ActiveSheet.ChartObjects("Chart 1")
    ' 获取分类坐标轴（若需设置数值轴，替换为xlValue）
    Set targetAxis = chtObj.Chart.Axes(xlCategory)
    
    ' 设置刻度标签字体填充透明度，1为完全透明，0.6为半透明
    With targetAxis.TickLabels.Font.Fill
        .Visible = msoTrue
        .Transparency = 0.6 ' 按需调整透明度数值
        .Solid
    End With
End Sub

额外说明 #

• 若要设置数值坐标轴的字体透明，将代码中的xlCategory替换为xlValue即可。
• 如果只是想隐藏坐标轴文字，直接设置targetAxis.TickLabels.Visible = False，效果和透明度设为1完全一致。

内容的提问来源于stack exchange，提问作者MA-