Excel VBA質問箱 IV

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

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


70834 / 76734 ←次へ | 前へ→

【10402】Re:オートシェイプの指定範囲削除について?
回答  ichinose  - 04/1/23(金) 18:32 -

引用なし
パスワード
   ▼えいち さん:
こんばんは。

>過去ログに記述されていたことを見て、自分なりにがんばったのですがどうしても分かりません。教えてください。
>
> 1〜10行までのオートシェイブは消さずに、11行目以降のすべてのオートシェイブを消すにはどうしたらよいのでしょうか?
>
> うまくいった!と思ったら、10行と11行の間に圧縮されてたりで・・・
>
>何卒 ご教授ねがいます。
ShapeオブジェクトのBottomRightCellを比較対象にしました。

'============================================
Sub main()
  Call del_autoshp(ActiveSheet, Rows(10))
End Sub
'=============================================
Sub del_autoshp(wk As Worksheet, lim As Range)
  Dim shp As Shape
  For Each shp In wk.Shapes
   If shp.Type = msoAutoShape Then
     If shp.BottomRightCell.Row > lim.Row Then
      shp.Delete
      End If
     End If
   Next shp
End Sub
2 hits

【10400】オートシェイプの指定範囲削除について? えいち 04/1/23(金) 17:28 質問
【10402】Re:オートシェイプの指定範囲削除について? ichinose 04/1/23(金) 18:32 回答
【10404】Re:オートシェイプの指定範囲削除について? えいち 04/1/23(金) 23:00 質問
【10405】Re:オートシェイプの指定範囲削除について? ichinose 04/1/24(土) 10:41 回答
【10406】Re:オートシェイプの指定範囲削除について? えいち 04/1/24(土) 11:50 お礼

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