[ÇÖZÜLDÜ] Tüm Resimleri Sil (makro ile)

[baydeniro]

Merhaba arkadaşlar. Bir excel sayfasındaki tüm resimleri sil için bir komut var mı ? (resim yapıştırınca, resime bir komut veriyor. Her yapıştırmada farklı numara verdiğinden resim silinmiyor)

 

[Leoncio]

Merhaba;
Aşağıdaki kodları denermisiniz.

Sub DelPics()
For i = 1 To Worksheets.Count
For j = Worksheets(i).Shapes.Count To 1 Step -1
Worksheets(i).Shapes(j).Delete
Next
Next
End Sub

 

[Merhum İdris SERDAR]

Sub resimsil()
Dim çizim
Dim resim
Set çizim = ActiveSheet.DrawingObjects
For Each resim In çizim
If Left(resim.Name, 7) = "Picture" Then
resim.Select
resim.Delete
End If
Next
End Sub

.

 

[uzmanamele]

merhaba

alternatif olsun

Sub resim_sil()
Dim resimler As Integer
resimler = ActiveSheet.Pictures.Count
For i = 1 To resimler
ActiveSheet.Pictures(1).Delete
Next
End Sub

 

[baydeniro]

Sayın Leoncio, sayın yurttas, sayın uzmanamele yardımlarınız için çok çok teşekkür ederim. Elleriniz dert görmesin, sağlıcakla kalın.

 

[hakan_07]

alternatif olsun

Sub resim_sil()
Dim resimler As Integer
resimler = ActiveSheet.Pictures.Count
For i = 1 To resimler
ActiveSheet.Pictures(1).Delete
Next
End Sub

Tşşkrler ama Pictures(i).Delete yanılmıyorsam

 

[hakan_07]

bnde bu konu üzerinde araştırırken kısa bir yol buldum

Activesheet.Pictures.Delete