TOP > Up > Today

Date:  Tue, 3 Oct 2006 17:21:29 +0900
From:  no@ann.co.jp
Subject:  [pasml 220146] Re: EXCEL に貼られた複数の図を一度に消したい
To:  pasml@ann.co.jp
Message-Id:  <200610030821.k938LTBF016864@ns.pas2.jp>
X-Mail-Count: 220146

名前: 白茶 BBSから
質問:http://pasokoma.jp/bbs?num=374838&ope=v ツリー:http://pasokoma.jp/bbsb/lg374834
携帯:http://pasokoma.jp/m?num=374838&ope=v ツリー:http://pasokoma.jp/m?num=374834
--
たけぞーさんは No.374837「Re:EXCELに貼られた複数の図を一度に消したい」で書きました。

白茶が知らないだけかもしれませんが、
選択範囲内の描画オブジェクトのみを削除する一般機能は、
見たことがありません。
なんか、何処かに有りそうな気がしないでも無いのですが・・・ねぇ。
有るのかな?・・・。

ちなみに白茶はマクロでやっちゃってます。

Option Explicit
Sub 選択範囲の図形を消す()
　　Dim Sp As Object, Ra As Range
　　On Error Resume Next
　　For Each Sp In ActiveSheet.DrawingObjects
　　　　Set Ra = Range(Sp.TopLeftCell, Sp.BottomRightCell)
　　　　If Not Application.Intersect(Selection, Ra) _
　　　　　　Is Nothing Then Sp.Delete
　　Next
End Sub

セル範囲を選択して実行します。



--
== 掲示板ＵＲＬ： http://pasokoma.jp/bbs ==
   配信の停止： http://pasokoma.jp/taikai
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===