Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70834 / 76734

←次へ　｜　前へ→


	【10402】Re:オートシェイプの指定範囲削除について？

ichinose - 04/1/23(金) 18:32 -


	引用なし

	パスワード

▼えいちさん：
こんばんは。

>過去ログに記述されていたことを見て、自分なりにがんばったのですがどうしても分かりません。教えてください。
>
>　１～１０行までのオートシェイブは消さずに、１１行目以降のすべてのオートシェイブを消すにはどうしたらよいのでしょうか？
>
>　うまくいった！と思ったら、１０行と１１行の間に圧縮されてたりで・・・
>
>何卒　ご教授ねがいます。
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