图表在所有y轴刻度上显示相同的数字

Question

我对VBA还是很陌生，所以我提供的代码可能远未优化。 但是，我很高兴听到可以改进的地方！

我有一张工作表，其中包含两列数据，一个用于输入的单元格，一个散点图和三个按钮。 该图表应该简单地绘制两列，并将输入单元格的值添加为垂直线。 应该使用一个按钮刷新图表（例如，调整轴）。 另一个应该显示一个示例，方法是将存储在另一个隐藏工作表中的一些数据插入两列以及条目单元格中，然后刷新图表。 应该使用最后一个按钮来简单地重置工作表，以便数据列以及输入单元为空，并且应该隐藏图表。

问题： 但是刷新按钮不起作用。 似乎根据新输入的数据调整了图表的查看区域的大小。但是y轴上显示的数字始终为0.05。 我提供了一张图片，向您展示我的意思：

当我按下示例按钮时，y轴显示正确的值。我尝试先将列中的数据复制到其他工作表，然后刷新图表，然后将数据粘贴回列中，但没有成功。

我注意到当图表仅显示0.05时，我单击图表以“选择数据”并仅选择第二个系列，y值更改为应有的值，因此我可以关闭窗口并保持原样直到再次按下刷新按钮。

也许我的代码存在我不知道的缺陷？也许我需要删除旧图表并每次创建一个新图表，而不是刷新图表？但是，我已经尝试了相同的结果。也许代码必须以不同的顺序编写？

示例按钮：

Private Sub ExampleBtn_Click()

Call RefreshBtn_Click

Range("C5:D27").ClearContents 'data columns

Range("C5:D14").Value = Sheets("ExampleSheet").Range("A1:B10").Value
Range("O3").Value = 3.5 'entry cell

End Sub

重置按钮：

Private Sub ResetBtn_Click()

ActiveSheet.ChartObjects(1).Visible = False

Range("C5:D27").ClearContents 'data columns
Range("O3").ClearContents 'entry cell
Range("C5").Select

End Sub

刷新按钮：

Private Sub RefreshBtn_Click()

ActiveSheet.Unprotect
Application.ScreenUpdating = False


ActiveSheet.ChartObjects(1).Visible = True

'range of Nachdruckzeit
Set zeit = Range("C5:C27")

'range of Masse
Set masse = Range("D5:D27")

yMax = Application.WorksheetFunction.max(Range("D5:D27")) + 0.02
yMin = Application.WorksheetFunction.min(Range("D5:D27")) - 0.02

'refresh the chart
With ActiveSheet.ChartObjects(1)
    .Width = Range("F5:P30").Width
    .Height = Range("F5:P30").Height

    If .Chart.SeriesCollection.Count = 1 Then
        .Chart.SeriesCollection(1).Delete
    ElseIf .Chart.SeriesCollection.Count = 2 Then
        .Chart.SeriesCollection(2).Delete
        .Chart.SeriesCollection(1).Delete
    End If

    With .Chart.SeriesCollection.NewSeries
        .XValues = zeit
        .Values = masse
        .Name = "Siegelpunktermittlung"
        .HasDataLabels = False
    End With

    t = Range("O3").Value 'entry cell
    With .Chart.SeriesCollection.NewSeries
        .Name = "gewaehlt"
        .XValues = Array(t, t)
        .Values = Array(0, yMax)
        .MarkerStyle = xlMarkerStyleNone
        .Border.Color = vbWhite
    End With
End With

'Cosmetics
With ActiveSheet.ChartObjects(1).Chart
  .HasLegend = False
  .ChartArea.Format.Fill.Visible = msoFalse
  .PlotArea.Format.Fill.Visible = msoFalse
  .SeriesCollection(1).MarkerStyle = xlMarkerStyleCircle
  .SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(251, 243, 223)
  .SeriesCollection(1).Format.Line.ForeColor.RGB = RGB(255, 140, 0)
  .SeriesCollection(1).MarkerForegroundColorIndex = -4142

  'x-axis
  With .Axes(xlCategory)
    .HasTitle = True
    .TickLabels.Font.Color = vbWhite
    .AxisTitle.Font.Size = 12
    .AxisTitle.Font.Color = vbWhite
    .AxisTitle.Caption = "Nachdruckzeit [s]"
  End With

  'y-axis
  With .Axes(xlValue)
    .HasTitle = True
    .MinimumScale = yMin
    .MaximumScale = yMax
    .TickLabels.Font.Color = vbWhite
    .AxisTitle.Font.Size = 12
    .AxisTitle.Font.Color = vbWhite
    .AxisTitle.Caption = "Masse [g]"
  End With
End With


Application.ScreenUpdating = True
ActiveSheet.Protect

End Sub

Answer 1

我找到了解决问题的方法：

问题在于图表的数据单元格具有数字格式，无论出于何种原因，该格式都会弄乱图表。将格式更改为标准格式可以解决此问题。

如果有人知道更改单元格格式时为什么会发生此问题，请告诉我。