Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


23456 / 76738 ←次へ | 前へ→

【58648】Re:オートシェイプを消すマクロがわかりません
発言  kanabun  - 08/11/2(日) 16:17 -

引用なし
パスワード
   ▼りー さん:

>この場合、他に「楕円」を使っていればそれも消えますよね?
>それを避けるためにRangeオブジェクトなどを使って「楕円」を消す範囲を
>指定することは可能でしょうか?

ヒントだけですが、
あるRange(セル範囲)を指定して、その範囲内の図形を列挙する命令は用意されてな
いので、図形(たとえば楕円)を Loop して、それがどのセル範囲にあるか
図の方から位置を求める形になります。

 Dim Oval As Excel.Oval
 For Each Oval In ActiveSheet.Ovals
   With Oval
     Debug.Print "["; .Name; "]", _
           .TopLeftCell.Address(0, 0), _
           .BottomRightCell.Address(0, 0)
   End With
 Next

3 hits

【58638】オートシェイプを消すマクロがわかりません りー 08/11/2(日) 1:27 質問
【58640】Re:オートシェイプを消すマクロがわかりま... かみちゃん 08/11/2(日) 7:44 発言
【58642】Re:オートシェイプを消すマクロがわかりま... りー 08/11/2(日) 11:56 お礼
【58643】Re:オートシェイプを消すマクロがわかりま... りー 08/11/2(日) 12:01 質問
【58644】Re:オートシェイプを消すマクロがわかりま... kanabun 08/11/2(日) 14:55 発言
【58645】Re:オートシェイプを消すマクロがわかりま... かみちゃん 08/11/2(日) 15:07 発言
【58647】Re:オートシェイプを消すマクロがわかりま... りー 08/11/2(日) 16:11 お礼
【58646】Re:オートシェイプを消すマクロがわかりま... りー 08/11/2(日) 16:03 お礼
【58648】Re:オートシェイプを消すマクロがわかりま... kanabun 08/11/2(日) 16:17 発言
【58649】Re:オートシェイプを消すマクロがわかりま... かみちゃん 08/11/2(日) 17:05 発言
【58650】Re:オートシェイプを消すマクロがわかりま... りー 08/11/2(日) 18:29 お礼

23456 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free