エクセルの棒グラフの要素選択方法

質問

グラフウィザードで棒グラフを作り、要素を選択して色を変えようと思いました。その際に、1回クリックすると要素全体が、もう一度クリックすると該当要素だけが選択されます。
　これを、一つおきに選択したかったので、shiftやctrlを押しながら追加選択してみましたが、うまく行きません。しかし、それ以降、最初の選択で、全体ではなく3つおきに選択されるようになってしまいました。これをリセットしたいのと、できるのなら一つおきの選択をしたいのですが、どうやったら良いのでしょうか？

回答No.1

imogasi · ベストアンサー

色々やってみましたが、ALLか１つですね。
ーーー
VBAで下記は１，３，５番目の色を赤に変えるものですが
Array（下記の最後のコードで、Sheet1-sheet3まで選択状態になる）や色々やりましたが、どうも納得できない点があります。
ーーー
小生微力で、やり方がわからないと言っても、絶対無いとは断言できませんので、後続回答を待ってください。
以上ご参考まで。
ーーー
Sub test01()
Dim pp As Object
ActiveSheet.ChartObjects("グラフ 5").Activate
ActiveChart.SeriesCollection(1).Select
'---
counter = 1
For Each pp In ActiveChart.SeriesCollection(1).Points
MsgBox counter
If counter = 1 Or counter = 3 Or counter = 5 Then
pp.Interior.ColorIndex = 3
End If
counter = counter + 1
Next
' Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
End Sub
実際実行するには
.ChartObjects("グラフ 5").の5　を、自分のケースに合わせて、1　などに改める必要があります。

お礼

お手間を取らせてしまい恐縮です。
確かに、1つかすべてでした。すべてのところで、どういうわけか選択マークが２つおきに出ただけで、全体の選択となっていました。
やはりできないようですね。