前提・実現したいこと
データを元に円グラフを作成をしていたのですが、今週に入って
急に下記のエラーが出現し、グラフが作成出来なくなってしまいました。
また、下記のコードの意味を理解できず、修正対応が出来なくて困っております。
発生している問題・エラーメッセージ
実行時エラー’-2147467259(80004005) ’setsourcedata'メソッドは失敗しました:’_Chart’オブジェクト
該当のソースコード
Sub makegraph_全体()
Dim ws As Worksheet
Dim chartobj As ChartObject
Dim chart1 As Chart
Set ws = ThisWorkbook.Worksheets("提出用データ")
ws.Shapes.AddChart2(259, xlPie).Select
With ActiveChart
.ClearToMatchStyle
.ChartStyle = 259
.FullSeriesCollection(1).DataLabels.ShowPercentage = True
.HasTitle = True
.ChartTitle.Formula = "タイトル(仮)"
.ChartTitle.Top = 0
.ChartTitle.Left = 0
.SetSourceData ws.Range(Cells(2, 15), Cells(3, 16))
.SetElement msoElementDataLabelOutSideEnd
End With
End Sub
試したこと
該当モジュールをエクスポートし、新規ブックにインポート→失敗
上記のコードを新規ブックにコピーし、シートには指定範囲にのみデータを記載→成功
※失敗しているブックは、ピボットテーブルがあり、そこから必要なデータのみ抽出して別のセルに貼付
そのデータをグラフ化したい
補足情報(FW/ツールのバージョンなど)
Excel2016