对象_chart的方法名称失败
我得到一个Run Time error 1004 :Method name of object _chart failed而我尝试命名我的图表。 有时会运行，有时却不运行。 这是导致错误的部分，（整个macros很长，所以我没有发布。）
绘制直方图的3D缩览图：
Range("U1:R23").Select Charts.Add ActiveChart.ChartType = xlCylinderCol ActiveChart.Name = "mcChart" -----------> Error With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "Dynamic Weight Chasing Histogram" & Chr(10) & "Local SWT ,File:" & Name & ", Roadforce-Check Spin" & Chr(10) & "assembly after dimensions changed, Old software" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "weights(Oz)" Charts("mcChart").SeriesCollection(1).XValues = Array(0, 0.25, 0.5, 0.75, 1, 1.25, 1.5, 1.75, 2, 2.25, 2.5, 2.75, 3, 3.25, 3.5, 3.75, "4-5", "5-6", "6-7", "7-8", "8-9", "9-10") .SeriesCollection([4]).Interior.Color = RGB(139, 0, 0) ' dark red .SeriesCollection([3]).Interior.Color = RGB(205, 92, 92) 'indian red .SeriesCollection([2]).Interior.Color = RGB(128, 0, 128) 'magenta .SeriesCollection([1]).Interior.Color = RGB(144, 238, 144) 'light green End With
请让我知道，如果你能find解决这个问题。
你可以修改你的代码，看看它是否工作？
dim newChart as Chart Range("U1:R23").Select Set newChart = Charts.Add With newChart .ChartType = xlCylinderCol .Name = "mcChart" & Format(now, "hhmmss") 'setting other properties End With