凡例の順番を入れ替えるのが目的:

 

知恵袋のプログラムでは、マーカーが表示されるので、下記を追加し、マーカーなしにする。

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