1

Run Time error 1004 :Method name of object _chart failedチャートに名前を付けようとすると、しばらく時間がかかります。これは実行される場合もあれば、実行されない場合もあります。エラーの原因となる部分は次のとおりです (マクロ全体が非常に長いため、すべてを掲載していません)。

ヒストグラムの 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

この問題の解決策を見つけられるかどうか教えてください。

4

1 に答える 1

1

コードを変更して、動作するかどうかを確認できますか?

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
于 2013-07-22T15:26:51.580 に答える