VBA Chart X-axis не подходит

Question

Кто-нибудь знает, почему моя диаграмма действует следующим образом, когда метка не соответствует общему размеру?

Вместо этого используется код дыры: Как показано ниже, мой выпадающий список содержит элемент, который будет считан из словаря, к которому я могу получить доступ через mainGUI.getDiagramFunc. chartData содержит данные, которые видны на графике. В файле chartItem содержатся имена.

If ComboBox1.text = "Select item" Or ComboBox1.text = "" Then Exit Sub
    Dim chartIndex As Integer
    ReDim chartItems(1) As String
    ReDim chartdata(20) As Long
    Dim myChart As Chart
    Dim mySeries As Series
    Dim index As Long: index = -1
    Dim value As Variant
    Dim temp As Variant: temp = split(mainGUI.getDiagramFunc.item(ComboBox1.text), ",")
    For Each value In temp
        index = index + 1
        If UBound(chartItems) <= index Then ReDim Preserve chartItems(index)
        chartItems(index) = mainGUI.getCalcKey(ComboBox1.text & "_*" & value)
    Next value

    ReDim chartdata(UBound(chartItems))
    index = -1
    For Each value In chartItems
        index = index + 1
        chartdata(index) = doCalculation(CStr(value))
    Next value
    On Error GoTo errorhandler
    Set myChart = ActiveWorkbook.Charts(1)
    Set mySeries = myChart.SeriesCollection(1)

    With mySeries
        .ChartType = xlColumnClustered
        .XValues = temp
        .Values = chartdata
    End With

    Dim picFileName As String
    picFileName = "C:\Users\extmartefr\Desktop\data\mychart.gif"
    myChart.Export Filename:=picFileName, Filtername:="GIF"
    Image1.Picture = LoadPicture(picFileName)
    Exit Sub

Answer 1

Я согласен с @ashleedawg, что ваш вопрос не совсем понятен. Тем не менее, я думаю, что могу помочь.

Попробуйте добавить строку кода, которая определяет ваше максимальное значение и устанавливает максимум по оси X следующим образом:

myChart.Axes(xlCategory).MaximumScale = (Your code to determine max x-value)