Excel VBA質問箱 IV

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

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


8192 / 13644 ツリー ←次へ | 前へ→

【34653】シート内の特定の画像だけを削除するには... pori 06/2/9(木) 12:35 質問[未読]
【34656】Re:シート内の特定の画像だけを削除するに... awu 06/2/9(木) 13:01 回答[未読]
【34703】Re:シート内の特定の画像だけを削除するに... pori 06/2/10(金) 8:24 お礼[未読]

【34653】シート内の特定の画像だけを削除するには...
質問  pori  - 06/2/9(木) 12:35 -

引用なし
パスワード
   こんにちは.
今excelでちょっとしたデータベースを作っているのですが,そこである事が出来なくて悩んでいます.

シート内に貼り付けてある複数の画像の中から,特定の一つの画像だけ削除したいのですが,どうしてもシート内の全ての画像が削除されてしまいます.

画像はセルごとに区分けしたリストの中に別々に貼り付けられています.
特定のセルを選択してその中の画像のみを削除する,といった感じのプログラムがあれば理想的なのですが・・・・・.

ちなみにこの処理で私が組んだコードは以下のとおりです.

Sub ボタン1_click()
Range("EQ90").Select
Activesheet.Pictures.Delete
・・・(以下別の作業に続く)

画像はセルごとに区分けしたリストの中に別々に貼り付けられています.
特定のセルを選択してその中の画像のみを削除する,といった感じのものが出来れば理想的なのですが・・・・

どなたかお分かりになる方がいらっしゃればお教え下さい.
よろしくお願いします.

【34656】Re:シート内の特定の画像だけを削除する...
回答  awu  - 06/2/9(木) 13:01 -

引用なし
パスワード
   こんな感じで如何でしょうか。

下記例は、画像の左上端が、セルEQ90 内に配置されているものを削除します。


Sub ボタン1_click()
Dim Pic As Picture
For Each Pic In ActiveSheet.Pictures
  If Not Intersect(Range("EQ90"), Pic.TopLeftCell) Is Nothing Then
    Pic.Delete
  End If
Next Pic
End Sub

【34703】Re:シート内の特定の画像だけを削除する...
お礼  pori  - 06/2/10(金) 8:24 -

引用なし
パスワード
   >awuさん

アドバイスありがとうございます!
早速トライしてみます.

結果はまた後ほどご報告します.

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