![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
しょうもない質問ですが、不思議なので教えてください。
エクセル2000です。
ワークシート上に配置したオートシェープのTypeNameを取得してみると、線(Line)、楕円(Oval)以外は四角形も八角形も星型もみんなRectangleでした。
ところが、
ActiveSheet.Rectangles.Select
としてみても、選択されるのは四角形と丸四角形のみです。
もちろん、Lines.Select や、Ovals.Select で選択できるのは、線 と 楕円 だけです。
八角形も星型もみんなTypeNameはRectangleなのに四角形と丸四角形以外のRectangleはどうして選択できないのでしょうか?
Sub testRectangle()
For Each o In ActiveSheet.DrawingObjects
If TypeName(o) = "Rectangle" Then o.Select (False)
Next
End Sub
とやれば、Rectangleだけ選択は出来ますが、ループしないで一括で選択はできないのでしょうか?
No.1ベストアンサー
- 回答日時:
Shapesオブジェクトの利用はダメなのでしょうか?
Sub testRectangle()
ActiveSheet.Shapes.SelectAll
End Sub
ですべてのオートシェイプが一括選択できるんじゃないでしょうか。
Sub testRectangle_5pointstar()
Dim o As Shape
For Each o In ActiveSheet.Shapes
If o.AutoShapeType = 92 Then o.Select (False)
Next
End Sub
で5点の星型のみ選択ですが、これはループしないと出来ないような気がします。オブジェクトブラウザで"msoShape*"を検索したら92以外の図形の定数がわかります。
さっそくありがとうございます。
ActiveSheet.Shapes.SelectAllでは、オートシェープ(四角形や三角形、だ円、ブロック矢印、吹き出し、フローチャートなど)以外にも、画像やフォームで挿入したDropDownsやCheckBoxesやButtonsなど、貼り付けたものがみな選択されてしまうので使えないのです。
msoShapeの図形の定数の調べ方、ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。特にものすごく怒られたときとか、とんでもない損害を与えてしまったときとか…。
-
VBA 図形グループ化後オブジェクト名取得
PowerPoint(パワーポイント)
-
Excelで、ボタンにコメントをつけたい。
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
Rectangleクラスのselectメソッド失敗
Excel(エクセル)
-
5
どこにもフォーカスを当てたくない
Access(アクセス)
-
6
VBA シートをコピー後、ボタンにマクロ登録
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでセル内の画像を選択...
-
JW-CADの<選択確定>ボタンに...
-
図形とテキストボックスの全部...
-
WORDで、楕円(オートシェイプ?...
-
Illustratorで、ほかのレイヤー...
-
ベクターワークスでのハッチン...
-
【illustrator】キーボードで全...
-
EXCEL2013 VBA ListBox 未選択
-
ベクターワークス
-
jwcadで図形を簡単に水平にする...
-
エクセルVBAでオートシェープの...
-
ICADでは概念が…
-
Illustratorパス連結時のエラー
-
分解の逆
-
Wordで図形などの全てのオブジ...
-
autoCADでの四角形の大きさの変...
-
エクセルマクロでシート内にあ...
-
AutocadへのExcel表のリンク元変更
-
AutoCADで塗りつぶしの方法
-
AutoCAD塗りつぶしが背面になら...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
jwcadで図形を簡単に水平にする...
-
EXCEL2013 VBA ListBox 未選択
-
エクセルマクロでシート内にあ...
-
WORDで、楕円(オートシェイプ?...
-
ICADでは概念が…
-
図形とテキストボックスの全部...
-
JW-CADの<選択確定>ボタンに...
-
Excel VBAでセル内の画像を選択...
-
Illustratorで、ほかのレイヤー...
-
分解の逆
-
AutoCadの一つの図面の中にあ...
-
autoCADでの四角形の大きさの変...
-
unigraphics NX2 のソリッド・...
-
CAD図面にEXCELの表を貼り付け...
-
イラストの背景を透明にしたい
-
【AUTO CAD】 複数の、異なる...
-
Wordで図形などの全てのオブジ...
-
AutoCAD塗りつぶしが背面になら...
-
エクセルの黒い枠が出ません
-
AutoCADのアクティブアシスタンス
おすすめ情報