Shapes.SelectAll後にグループ化するには

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2109 ビルド14430.20306 Microsoft Store）

「shapes.selectall グループ化」
といった検索キーワードでアクセスがありました。

Shapesコレクションに用意されているSelectAllメソッドで全図形を選択した後、

Excel.Shapes.SelectAll

グループ化を行うには、どのようなコードを書けばいいのかを探していらしたのでしょう。

ActiveSheet.Shapes.SelectAll.Group

といったコードを試してみたものの、
「実行時エラー'424': オブジェクトが必要です。」
エラーが発生したのではないかと、私は想像しています。

［スポンサードリンク］

検索キーワード「shapes.selectall 結合」も、同じことを探していたように感じられます。

Shapes.SelectAllには戻り値がない

まず、

ActiveSheet.Shapes.SelectAll.Group

が実行時エラーになる理由を明確にしましょう。

これは、ShapesコレクションのSelectAllが戻り値のないメソッドだからです。

Excel.Shapes.SelectAll

上図のとおり、オブジェクトブラウザー詳細ペイン1行目に「Sub SelectAll」と表示されていることから、戻り値のないメソッドであることがわかります。

で、以下のようなSubプロシージャにすれば、SelectAll後にグループ化できます。

Sub SelectAll後にグループ化する()
　ActiveSheet.Shapes.SelectAll
　If TypeName(Selection) = "DrawingObjects" Then
　　Selection.Group
　End If
End Sub

Excel VBAのSelectionプロパティは、図形等が選択されている場合にはレガシーなDrawingObjects系のオブジェクトを返します。

グループ化したいということは複数の図形が選択されているはずで、その場合はDrawingObjectsオブジェクトが返されます。

Excel.DrawingObjects

そこで、VBAのTypeName関数でShapesプロパティの戻り値を確認して、DrawingObjectsだったときに、

If TypeName(Selection) = "DrawingObjects" Then

DrawingObjectsオブジェクトに用意されているGroupメソッドで、

Excel.DrawingObjects.Group

グループ化を行っています。

　Selection.Group

最終更新日時：2021-11-04 15:39

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「DrawingObjects」の記事一覧