条件に一致する複数のオートシェイプを選択する

Excel 2003のVBAで条件に一致する複数の図形を選択する方法。

仕事中に考えていた¹ ものの結局思い浮かばなくて、休日なのに休めた気がしなかった。これで安心して日曜日を迎えられる。

とりあえず2番の回答者が書いたソースコードまるごと引用。ってか、仕事中に書いていたコードとほぼ一緒（何）。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro()

 Dim ob As Shape

  Dim st() As Variant

  Dim i As Integer



  i = 0

  For Each ob In ActiveSheet.Shapes

  ReDim Preserve st(i)

  st(i) = ob.Name

  i = i + 1

  Next ob



  ActiveSheet.Shapes.Range(st).Select

  Selection.ShapeRange.Group.Select

End Sub

引用元: エクセルのワークシート上にVBAで作ったオートシェイプを、引き.. – 人力検索はてな.

つまずいていたのは Dim st() As Variant の部分。ここを Dim st() As String と書いていたので実行時エラー² 。たったこれだけで2時間も詰まっていたという…

さらにもう一点、 ActiveSheet.Shapes.Range() の引数はVariant型とヘルプに書かれていたので、

1
2
3
Dim v As Variant

v = Array("図形 1", "図形 2", "図形 3")

ActiveSheet.Shapes.Range(v).Select

のように書かないといけないものと勘違い。String型の動的配列³ 静的Variant型配列⁴ に変換するのではなく、単純にVariant型の動的配列を書いてやればいいだけというオチ。

Variant型の扱いが未だによくわからん…

This post was written by

くれす – who has written 66 posts on その他大勢チーム.

Web系の開発やっていた（過去形）けど、仕事がなくていつの間にかPMOになっていた。開発チームの進捗遅れや品質の悪さに対して上から目線でケチを付けたり、管理業務がボタンひとつで出来るように機械化したりするのが生き甲斐。定量的なことしか言わないので嫌われること請け合い。どうでもいいですが、男の子なのに腐です。えっ…なにそれこわい。こんなこわい男の子は食べてしまえ。二次元も三次元もおいしいです。

Send an Email

1. 今の職場では、自分のPCをインターネットに繋いで検索することができない。 [↩]
2. 自宅にExcel VBA環境がないのでエラーメッセージを再現できない… [↩]
3. ReDim Preserve v(10) [↩]
4. v = Array(“aaa”, “bbb”) [↩]

関連記事

• 2010年10月7日 -- くれす.jpのドメイン向けAdsenseが動いていなかった (0)
• 2010年10月7日 -- 寄付してる気がするWordPress プラグイン – Give a Beer — 病的溺愛シンドローム (0)
• 2010年10月24日 -- Retweetさえ見たくないユーザを非表示にするGreaseMonkeyスクリプト (1)