图表对象格式错误

我不知道如何正确格式化日期（X轴），否则，下面的代码工作。 MyArY()包含日期，但由于某些原因，日期显示为00年的图表9/1/00？我试过我在网上找到的例子，但它们不适合我。
下面是日期，看起来像在纸张上： 7/21/15 8:00:00 AM 8/25/15 9/1/15 12:00:00 AM 9/10/15 7/21/15 8/25/15 图表不承认的日期，他们看起来是这样的：图表对象格式错误

感谢您的帮助。

Sub Build_Chart() 
'builds a chart on active sheet 

Set objChart = ActiveSheet.ChartObjects.Add _ 
(Left:=30, Width:=775, Top:=15, Height:=345) 
objChart.Chart.ChartType = xlXYScatterLines 

End Sub 

Sub Add_ChartSeries() 

Dim i As Long, l As Long 
Dim yAddress_ListItem As String, yAddress_ValuesRange As String 
Dim xAddress_ValuesRange As String, xAddress_ListItem As String 
Dim cht As Chart 
Dim rng As Range, aCell As Range 
Dim MyArY() As Variant, MyArX() As Variant 
Dim LastRow As Long, iVal As Long 
'Dim chSeries As Series 

Dim objChartSeriesColl As SeriesCollection 

With ActiveSheet ' 
LastRow = .Cells(.Rows.count, "B").End(xlUp).Row 
Set rng = .Range("B27:B" & LastRow) 'non-contiguous range 
End With 

Set objChartSeriesColl = objChart.Chart.SeriesCollection 


If frmGeneList.lstMain.ListIndex <> -1 Then 'if listbox is NOT empty 
For l = 0 To frmGeneList.lstMain.ListCount - 1 
If frmGeneList.lstMain.Selected(l) Then 'identify selected items 
' count of cells in that range meeting criteria 
iVal = Application.WorksheetFunction.CountIf(rng, frmGeneList.lstMain.List(l)) 

' Resize arrays to hold filtered data 
ReDim MyArY(1 To iVal) 
ReDim MyArX(1 To iVal) 

iVal = 1 

' Store filtered values from that range into array 
For Each aCell In rng.Cells 
If aCell.Value = frmGeneList.lstMain.List(l) Then 
MyArY(iVal) = aCell.Offset(0, 1).Value'dates 
MyArX(iVal) = aCell.Offset(0, 2).Value'numbers 
iVal = iVal + 1 
End If 
Next aCell 


xAddress_ListItem = frmGeneList.lstMain.List(l) '.Value 
'defines series name 

With objChartSeriesColl.NewSeries 'adds each? Series 
.Name = xAddress_ListItem 
.Values = MyArY 
.XValues = MyArX 
'.ApplyDataLabels 
'.DataLabels.Position = xlLabelPositionAbove 
'.DataLabels.NumberFormat = "0" 
End With 
     End If 
    Next 
End If 

'objChart.HasTitle = True 

With objChart.Chart 
    '.Axes(xlCategory).TickLabels.NumberFormat = "m/d/yy;@" 'changes 
'Xaxis text format 
    .Axes(xlValue).TickLabels.NumberFormat = "General" 'changes Yaxis 
'Text Format 
    '.SetElement (msoElementChartTitleAboveChart) 'adds chart title above chart 
    .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis) 
'adds Xaxis title 
    .SetElement (msoElementPrimaryValueAxisTitleRotated) 'adds rotated 
'Yaxis Title 
    .SetElement (msoElementLegendBottom) 'adds legend @ bottom 
    '.ChartTitle.Text = "IonTorrent Inter-Run Viriability" 'adds chart 
'title above chart 
    .Axes(xlCategory, xlPrimary).AxisTitle.Text = "Run Dates" 
'renames Xaxis title to "X Title" 
    '.Axes(xlValue, xlPrimary).AxisTitle.Text = "Sample Dates" 
'renames Xaxis title to "X Title" 
    .Axes(xlValue, xlPrimary).AxisTitle.Text = "%Alt" 'renames Yaxis 
'title to "Y Title" 
End With 

With objChart.Chart.PlotArea.Format.Line 'adds black border around plot 
    .Visible = msoTrue 
    .ForeColor.ObjectThemeColor = msoThemeColorText1 
End With 

With objChart.Chart.Legend.Format.Line 'adds black border around legend 
    .Visible = msoTrue 
    .ForeColor.ObjectThemeColor = msoThemeColorText1 
End With 

End Sub

来源

2015-09-27 user3781528

我刚开始研究excel图表。你的是一种高级编码。我已经在其中一篇文章中使用基于@Meehow代码的简单例程上传了一个示例分散系列图表。您将在表3中注意到，可以通过将相应的轴比例与VBA例程和格式化比例轴对齐来显示正确的日期。我也遇到过类似的日期问题。我可以通过以下相关链接改进它。 – skkakkar

另一个日期问题相关链接来自Peltier Tech Blog 。 – skkakkar

我缺少'ActiveSheet.ChartObjects（1）.Activate'行。现在我已经激活了我正在使用'使用Activechart'的图表，并且我的标题已经显示出来了，但是日期问题对我来说仍然很难理解。 – user3781528

“转换日期为Value /双然后整数截断时间 MyArX（IVAL）= INT（CDbl（aCell.Offset（0，2）。价值））

这为我。

来源

2015-09-28 10:47:01 user3781528

图表对象格式错误

回答

相关问题