エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
EXCEL VBAでオートシェイプの重なりを検知するには?
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
EXCEL VBAでオートシェイプの重なりを検知するには?
こんばんは。 今、思いつくのは、以下のように、Rangeオブジェクトをとる方法ですね。 With ActiveSheet... こんばんは。 今、思いつくのは、以下のように、Rangeオブジェクトをとる方法ですね。 With ActiveSheet.Shapes(1) Set shp = Range(.TopLeftCell, .BottomRightCell) End With これで、Rangeオブジェクトが取れますから、それを、Intersect を使って、二重ループでまわしたらいかがですか?あまり深く考えていないので、間違っているかもしれません。 簡単な例を考えてみました。 Sub CheckDoubleTest() Dim ShpR1 As Range Dim ShpR2 As Range Dim i As Integer Dim j As Integer With ActiveSheet For i = 1 To .Shapes.Count Set ShpR1 = .Range(.Shapes(i).T