両方向矢印のみ選択するマクロってありますか？

質問

マクロの初心者です。Excel2003を使用しています。

１枚のシートの中に多くの（100本以上）矢印があります。
矢印は様々な方向を向いています。両方向矢印は残して、片方向を向いている矢印は消したいのですが、できあがったものだと全ての矢印が消えてしまいました。
できあがったマクロは他のシートにも使用したいと思っています。他のシートにも矢印はありますが、本数はそれぞれ違いますので、Line番号を指定することができません。

両方向矢印のみ残したいので、先にそれを選択してグループ化してから、線を削除すれば、矢印消えるのではと思ったのですが、シート上にある全ての両方向矢印を選択する方法がわかりません。両方向矢印のみ選択して、グループ化する方法があればご教授下さい。
他の方法でもかまいません。よろしくお願い致します。

回答No.2

CC_T · ベストアンサー

線を一つ一つ順繰りに見て、削除するかどうかを先端形状のスタイルで条件分岐してはどうでしょうか。

～～～～ここから
Dim L As Shape
　For Each L In ActiveSheet.Shapes　
　 If L.Type = msoConnectorStraight Then　
　 If L.Line.BeginArrowheadStyle = msoArrowheadNone Then L.Delete
　End If
　'///2003だと矢印線はmsoline扱いだった様な気がするな。
　' If L.Type = msoLine Then
　' If L.Line.BeginArrowheadStyle = msoArrowheadNone Then L.Delete
　' End If
　Next
～～～～ここまで

中には開始端ではなく終端が無印の矢印もあるかもしれませんが、上の例ではそれは含めてません。
必要に応じてEndArrowheadStylでも条件分岐してみてください。
とりあえず私の環境ではこれで開始端無印の片矢印線は全部消えて、図形や両矢印線のみ残せました。

ただ、2010を使用しているので、2003と微妙に違うかもしれないです。確か2003では矢印はmsoConnectorStraightなどではなくmsolineと分類されていたような気がします。
2003環境がないので動作確認してませんが、コメント文部分にmsolineの場合も入れておきました。
そちらの環境で「マクロの記録」をしながら先端形状代えて線をいくつか書いてみて、出来上がるマクロの
内容を眺めて条件文をどうするか判断してみてください。

お礼

遅くなってすみません。できました！ありがとうございました。
すごいの一言です。もっと、もっと、マクロを勉強しなくては・・
基本からやり直しかもしれませんが・・・

回答No.1

DreamyCat

２００３版は「マクロの記録」がとれるはずです。それを元に考えればわかるはずです。

そのBookのコピーを作成し、それでテストしてください。
Dim arw As Shape

For Each arw In Sheet1.Shapes
If arw.Line.BeginArrowheadStyle = msoArrowheadOpen Then arw.Delete
Next

補足

超・超・超初心者だからなのでしょうか？
マクロにコピーしてみたのですが・・・

Sub 矢印()

Dim arw As Shape

For Each arw In Sheet1.Shapes
If arw.Line.BeginArrowheadStyle = msoArrowheadOpen Then arw.Delete
Next

End Sub

とやってみたのですが、どの矢印も選択されません。
でも、エラーにもならずに・・・どうすれば選択されるのでしょうか？