は、このコードを考えてみましょう：1004ランタイムエラーExcelのグラフを追加するに
Subroutine(ByRef objExcelApp As Object)
Dim objChart As Excel.Chart<br>
Dim objChartAdd As Excel.Chart
Set objChart = Charts.Add
'Plotting graph in excel
'After completion
Set objChart = Nothing
End Sub
私はこのコードを実行すると、すべてが正常に実行され、別のレポートタイプでそれを再実行する場合は、アプリケーションを閉じず - それはSet objChart = Charts.Addでエラー1004を促し
何か助けてもらえれば誰でも提供できます。
UIにグラフを追加できますか？チャートを追加できない（複数のシートが選択されている、ワークブックがアクティブになっていない、アクティブ範囲が保護されているなど）状況にあると思います。
クリス
こんにちはクリス、私はアプリケーション（最初の実行）を起動し、それを実行 - その時点で私はExcelシート上でグラフを生成することができます。 アプリケーションを再起動せずに再実行すると、そのエラーがポップアップします。私は非常に新しいので、どうすればエラーをトレースすることができますか？教えてください。 chart – tangyorangesour
私の計画は次のようになります：マクロが破損している箇所までマクロを実行します。その後、デバッガを停止し、Excelに戻って「グラフを挿入」してみてください。ボタンが無効になっている場合は、Excel内の理由を調べることができます。エラーメッセージが表示された場合は、それも役立ちます。それが動作し、あなたがチャートを挿入することができれば、私たちは別の問題を抱えています！ –
こんにちはクリス、それはマクロ、そのVBプログラムではありません。あなたがちょうど共有したすてきなチップ - ありがとう:) 私はバグを修正しました - objchart =（EXCELOBJECT）.charts.add 今すぐ私の質問は、最初の実行のために正常に実行された再実行で失敗したが、最初の試合で成功した理由は何ですか？それが後で失敗した理由誰もが同じことについての知識を共有してください、本当に感謝される場合。 – tangyorangesour
さらに詳しい情報が必要です。投稿されたコードはコンパイルされません。見出しはSub YourSubName（...）のようなものでなければなりませんDim objChart ...
は無効です。 –