Início / coding / Perguntas / 79417951
Accepted
Kram Kramer
Asked: 2025-02-06 20:47:47 +0800 CST

Como colocar nomes de meses em letras maiúsculas nos eixos Y do gráfico via VBA?

  • 772

Execute o código a seguir.

    Public Sub Macro1()
    
    'Delete all charts
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        If ActiveSheet.Shapes(i).Type = msoChart Then
            ActiveSheet.Shapes(i).Delete
        End If
    Next i
    
    'Add a chart.
    With ActiveSheet.ChartObjects.Add(Left:=10, Top:=10, Width:=400, Height:=200)
        .Name = "myChart"
    End With
    
    'Add a serie.
    With ActiveSheet.ChartObjects("myChart").Chart.SeriesCollection.NewSeries
        .ChartType = xlLine
        .XValues = Array(45658, 45689, 45717, 45748, 45778, 45809)
        .Values = Array(1, 2, 3, 4, 5, 6)
    End With
    
    'Format the xlCategory 
    With ActiveSheet.ChartObjects("myChart").Chart.Axes(xlCategory)
        .CategoryType = xlTimeScale
        .TickLabels.NumberFormat = "MMM/YY"
    End With
    
    End Sub

Como colocar nomes de meses em letras maiúsculas nos eixos Y do gráfico via VBA?

A imagem a seguir mostra a saída desejada.

https://prnt.sc/g2dXINXpMV97

excel

1 respostas

  1. Best Answer

    Alterar este bloco:

    'Add a serie.
    Dim xVal As Variant, UpVal As Variant
    With ActiveSheet.ChartObjects("myChart").Chart.SeriesCollection.NewSeries
        .ChartType = xlLine
        xVal = Array(45658, 45689, 45717, 45748, 45778, 45809)
        UpVal = xVal
        For i = 0 To UBound(xVal)
            UpVal(i) = UCase(WorksheetFunction.Text(xVal(i), "[$-en-us]mmm/yy"))
        Next i
        .XValues = UpVal
        .Values = Array(1, 2, 3, 4, 5, 6)
    End With

    e remova o último: 'Format the xlCategory.

    • 2

relate perguntas