请问如何使用vba给图表的坐标轴添加箭头？

wwltzh

请问如何通过vba实现以下效果？
在Excel图表中通过坐标轴线型设置的“后端类型”和“后端大小”



设置后的效果：

493861364

录制宏，好像有对应的代码
ActiveChart.Axes(xlValue).Select
    Selection.Format.Line.EndArrowheadStyle = msoArrowheadTriangle

Excel图表汇

ChatGPT给出的答案：


Sub AddArrowsToChartAxes()  
  
    ' 假设你的图表在第一个工作表上，并且是第一个图表  
    Dim chartObj As ChartObject  
    Set chartObj = ThisWorkbook.Sheets(1).ChartObjects(1)  
      
    ' 获取图表的 X 轴和 Y 轴  
    Dim xAxis As Axis  
    Dim yAxis As Axis  
    Set xAxis = chartObj.Chart.Axes(xlCategory)  
    Set yAxis = chartObj.Chart.Axes(xlValue)  
      
    ' 为 X 轴添加箭头  
    With xAxis  
        .HasLine = True  
        .Line.ForeColor.RGB = RGB(0, 0, 0) ' 黑色  
        .Line.Weight = xlThin ' 细线  
        .HasArrowheads = True  
        .ArrowheadLength = 0.25 ' 箭头长度  
        .ArrowheadWidth = 0.15 ' 箭头宽度  
    End With  
      
    ' 为 Y 轴添加箭头  
    With yAxis  
        .HasLine = True  
        .Line.ForeColor.RGB = RGB(0, 0, 0) ' 黑色  
        .Line.Weight = xlThin ' 细线  
        .HasArrowheads = True  
        .ArrowheadLength = 0.25 ' 箭头长度  
        .ArrowheadWidth = 0.15 ' 箭头宽度  
    End With  
  
End Sub

wwltzh

493861364 发表于 2024-2-19 19:28
录制宏，好像有对应的代码
ActiveChart.Axes(xlValue).Select
    Selection.Format.Line.EndArrowheadSt ...

这个方法好用，非常感谢

碧血晶狐

    Dim i As Long
    For i = 1 To 2
        With Chart.Axes(i)
            .Format.Line.EndArrowheadStyle = msoArrowheadStealth
            .Format.Line.ForeColor.RGB = RGB(255, 128, 0)
            .HasMajorGridlines = True
            .MajorGridlines.Format.Line.ForeColor.RGB = RGB(240, 240, 240)
            .MajorTickMark = xlTickMarkNone
            .MajorUnit = 1
            .MaximumScale = 10
            .MinimumScale = -10
            .TickLabelPosition = xlTickLabelPositionNone
        End With
    Next i