Excel vbaで複数グラフを選択する

 Excel vbaで複数グラフを選択する

直接この記事と関係ないけど、下記のvbaのリストがとても良いです。

Kunihito TOBITA Office (飛田国人)

Excel: VBA覚え書き　

http://www.ess.osakafu-u.ac.jp/human/tobita/2018/08/16/excel3/

'これが基本

ActiveSheet.Shapes.Range(Array("グラフ 1", "グラフ 2")).Select

'これはNG

a=Array("グラフ 1", "グラフ 2")

ActiveSheet.Shapes.Range(a).Select

'これはOK

Dim a() As Variant

a=Array("グラフ 1", "グラフ 2")

ActiveSheet.Shapes.Range(a).Select

'これもOK

ReDim a(0 To 1)

a=Array("グラフ 1", "グラフ 2")

ActiveSheet.Shapes.Range(a).Select

'これはNG

aa1 = "グラフ 1,グラフ 2"

buf2 = Split(aa1, ",")

ActiveSheet.Shapes.Range(buf2).Select

'Variant/Variantでないとダメみたい。

追記

詳しい理由はわからないけど配列に代入しておいて、Rangeのカッコの中でJoinしてsplitするといけるっぽい。