しょうもない質問ですが、不思議なので教えてください。
エクセル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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- 数学 数学の質問です。 円に内接する四角形ABCD において, AB=2, BC = 1, CD = 3, 3 2023/04/18 18:28
- 数学 数的推理の問題です。 この問題の解説に 「選択肢にルートが付く数字はありませんので、CD,ACのいず 2 2022/04/04 11:09
- 数学 四角形の角度のことで聞きたいです。 円に内接する四角形は外角と対角が等しいと学んだ気がするんですが、 5 2022/07/27 05:52
- 高校 数学Aの問題で、円に内接するN角形(N>4)の対角線の総数は ア 本である。また、Fの頂点三つからで 1 2023/04/13 17:47
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
- Visual Basic(VBA) 複数セルに〇印をつけるマクロ 4 2022/09/07 05:33
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- JavaScript セレクトを全て選択されていないと、文字によるエラーメッセージを表示させるコードを調べています 2 2023/06/22 15:48
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA 図形グループ化後オブジェクト名取得
PowerPoint(パワーポイント)
-
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
-
4
Excelで、ボタンにコメントをつけたい。
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
どこにもフォーカスを当てたくない
Access(アクセス)
-
7
Rectangleクラスのselectメソッド失敗
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JW-CADの<選択確定>ボタンに...
-
エクセルマクロでシート内にあ...
-
WORDで、楕円(オートシェイプ?...
-
Excel VBAでセル内の画像を選択...
-
AutoCAD塗りつぶしが背面になら...
-
ICADでは概念が…
-
Autocadで正しい画層名が表示さ...
-
イラストの背景を透明にしたい
-
Illustratorで、ほかのレイヤー...
-
jwcadで図形を簡単に水平にする...
-
リストボックスで項目を選択し...
-
エクセルでシート上に存在する...
-
autoCADでの四角形の大きさの変...
-
分解の逆
-
ベクターワークスでのハッチン...
-
AutoCadの一つの図面の中にあ...
-
AUTO CADLT 通り芯の複数編集...
-
PDFをWORDに貼ると汚くなる
-
クリッピングマスクの枠の外を...
-
突然カーソルが手の形に…
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
jwcadで図形を簡単に水平にする...
-
EXCEL2013 VBA ListBox 未選択
-
図形とテキストボックスの全部...
-
エクセルマクロでシート内にあ...
-
ICADでは概念が…
-
JW-CADの<選択確定>ボタンに...
-
WORDで、楕円(オートシェイプ?...
-
Excel VBAでセル内の画像を選択...
-
分解の逆
-
autoCADでの四角形の大きさの変...
-
Illustratorで、ほかのレイヤー...
-
AutoCadの一つの図面の中にあ...
-
CAD図面にEXCELの表を貼り付け...
-
Wordで図形などの全てのオブジ...
-
エクセルVBAでオートシェープの...
-
イラストの背景を透明にしたい
-
ベクターワークスでのハッチン...
-
【AUTO CAD】 複数の、異なる...
-
AUTOCADハッチングについて教え...
-
unigraphics NX2 のソリッド・...
おすすめ情報