activeSheet.DrawingObjects.Delete komutu

[kadir78]

çalışma sayfasına resim çağırma yapıyorum fakat aşağıdaki komut butonlarıda siliyor. bu kodlamayı nasıl sınırlandırabilirim. iyi günler


activeSheet.DrawingObjects.Delete

 

[Orion1]

Buyurun.

ActiveSheet.Pictures.Delete

 

[kadir78]

Orion çok teşekkür ederim. Sağolun.

 

[Orion1]

Orion çok teşekkür ederim. Sağolun.

Rica ederim.
iyi çalışmalar.

 

[lev_sez]

peki ben sadece B15:B20 arasındaki resimlerin silinmesini istersem nasıl bir kod yazmam gerekir.

 

[lev_sez]

Aşağıdaki kodları yazdım.

ActiveSheet.Pictures.Delete kodu sayesinde sayfadaki tüm resimler siliniyor. Ben sayfama logo koydum bunun silinmemesi için ne yapmam gerekiyor? Sadece B15:B20 arasında resimler çıksa da işime yarar. Bu hücrelerin dışındaki resimlere müdahale etmemesini istiyorum. Nasıl yapabilirim?

--------------------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [c:c]) Is Nothing Then Exit Sub

'Hata Kontrolü
On Error GoTo Çıkış
'Resimleri Sil

ActiveSheet.Pictures.Delete

'Resim Yolunun Bulunması

Dim ResimYolu As Variant
Dim Resim As Object

For satır = 15 To 20

ResimYolu = ActiveWorkbook.Path & "\RESIMLER\URUNLER\" & Range("c" & satır) & ".jpg"

'Resim Oluştur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)

'Resim Boyutlandır

With Range("b" & satır)
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = .Height
Resim.Width = .Width

End With


Next satır

Çıkış:
End Sub

 

[halit3]

kod:

Sub sil()
Dim Picture As Object
For Each Picture In Worksheets(ActiveSheet.Name).Shapes
If Picture.TopLeftCell.Column = 2 Then
If Picture.TopLeftCell.Row >= 15 And Picture.TopLeftCell.Row <= 20 Then
Picture.Delete
End If
End If
Next Picture
End Sub

 

[lev_sez]

teşekkür ederim halit bey. Kendi kodlarımın içerisinde bu kodları nereye yazman gerekir acaba. Yardımcı olabilirseniz çok sevinirim.

 

[halit3]

teşekkür ederim halit bey. Kendi kodlarımın içerisinde bu kodları nereye yazman gerekir acaba. Yardımcı olabilirseniz çok sevinirim.

peki ben sadece B15:B20 arasındaki resimlerin silinmesini istersem nasıl bir kod yazmam gerekir.

kod 5 nolu mesajınızdaki soruya göre yazıldı