[[20180515230718]] 『図形の削除』(ほういち) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『図形の削除』(ほういち)

 こんばんは。マクロ初心者のほういちと申します。

 20080728110751 『選択セル内の図形のみ削除』(ぶんコ)様の書き込みにある
 マクロを少し修正して使用したいと思うのですがうまくできないのでまた
ご教授ください。

 HANAさんからの回答のマクロで

 Sub 選択範囲内の図形を消す()
 Dim MyShape As Shape
    For Each MyShape In ActiveSheet.Shapes
        With MyShape
            If Not Intersect(Selection, .TopLeftCell) Is Nothing And _
                Not Intersect(Selection, .BottomRightCell) Is Nothing Then
                .Delete
            End If
        End With
    Next
 End Sub

 上記のマクロはあらかじめ範囲しているセルの中にある図形を削除するというマクロですが
 毎回範囲指定をして削除するのは手間ですのでマクロの中のコードに
C3〜N35を範囲指定するというコードを教えて頂けないでしょうか?

 よろしくお願いいたします。

< 使用 Excel:Excel2007、使用 OS:WindowsXP >


ぱっと見、
selectoinを
range("C3:N35")に変えたらいいのかな?

試してみてないんでなんとも^^;
(まっつわん) 2018/05/15(火) 23:26


 まっつわん様

 出来ました!!

 ありがとうございました。
(ほういち) 2018/05/15(火) 23:34

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.