凡例の順番を入れ替えるのが目的:
知恵袋のプログラムでは、マーカーが表示されるので、下記を追加し、マーカーなしにする。
ngra = 22
ActiveSheet.ChartObjects("グラフ " + CStr(ngra)).Activate
ActiveChart.FullSeriesCollection(1).Select
Selection.MarkerStyle = -4142
ActiveChart.FullSeriesCollection(2).Select
Selection.MarkerStyle = -4142
ActiveChart.ChartArea.Select
Range("T1").Select
参考:
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1326157423
未実施:参考:対話型
https://oshiete.goo.ne.jp/qa/9501346.html