グラフタイトルを設定していればグラフタイトルを、設定していなければ「タイトル無i」という文字をstrGTITLEに返そうとしています。(この処理はfor i = 1 to ActiveSheet.ChartObjects.countのループ内で行っています。) 当方マクロ初心者でして、色々調べたりし以下のようなマクロを作成してみたのですが、「このオブジェクトにはタイトルがありません」のエラーが返されます。 どのようにすれば改善できるのでしょうか。 どうぞよろしくお願いいたします。 If ActiveChart.ChartTitle Is Nothing Then '←この行でエラーが起きます strGTITLE = "タイトル無" & i Else strGTITLE = ActiveChart.ChartTitle.Text End If
↧