Windows版Excel2016「図形の配置されているセル範囲をオブジェクト変数にセット」という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。Applications)で、Shapeの存在するセル範囲を取得して、オブジェクト変数にセットするには、どのようなコードを書けばいいのかを探している方による検索でしょうか。[スポンサードリンク]1個のShapeの存在するセル範囲を取得するサンプルマクロ以下のようなマクロで、1個のShapeが存在するセル範囲を表すRangeオブジェクトを取得して、オブジェクト変数にセットできます。Sub上記のマクロを実行すると、アクティブシート上の1つ目のShapeの存在するセル範囲のアドレスがメッセージボックスに表示されます。Shapeオブジェクトの、TopLeftCellプロパティでShapeの左上にあるセルを表すRangeオブジェクトを、BottomRightCellプロパティでShapeの右下にあるセルを表すRangeオブジェクトを、それぞれ取得できます。この、Shape.TopLeftCellプロパティとShape.BottomRightCellプロパティで取得した2つのRangeオブジェクトを、Rangeプロパティの引数に指定することで、1個のShapeが存在するセル範囲を表すRangeオブジェクトを取得して、そのRangeオブジェクトをオブジェクト変数・rngにセットしています。.BottomRightCell)複数のShapeが存在するセル範囲を取得するサンプルマクロ複数のShapeが存在しているときに、そのすべてのShapeが存在するセル範囲を表すRangeオブジェクトを取得してオブジェクト変数にセットするなら、以下のようなマクロでしょうか。Sub上記のマクロを実行すると、複数のShapeが存在していたときに、それらすべてのShapeを含むセル範囲のアドレスが、メッセージボックスに表示されます。.ColumnCellsプロパティとRangeプロパティを組み合わせてセル範囲を表すRangeオブジェクト取得して、オブジェクト変数・rngにセットしています。オブジェクト式解説編』を開催します。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。