Sayfadaki Tüm Resimleri Silme

Bu dosya, etkin çalışma sayfasındaki tüm resimleri tek işlemle silen basit bir makro örneğidir. Çok sayıda görsel içeren sayfaları elle tek tek temizlemek yerine kısa bir VBA koduyla toplu silme yapılır.

Dosyanın içeriği​

• Sayfa1: C20 hücresinde "sayfadaki tüm resimleri silin" yazan yönlendirme metni bulunur. Makroyu çalıştıran düğme/simge de bu sayfadadır.
• Module1: ED adlı makroyu içeren VBA modülüdür (3 satır).

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makro olmadan silme işlemi çalışmaz.

• ED: ActiveSheet.DrawingObjects.Delete satırı ile o anda etkin olan sayfadaki tüm çizim nesnelerini siler. Resimlerle birlikte sayfadaki şekiller, metin kutuları ve benzeri nesneler de silinir. Diğer sayfalara dokunulmaz.
• Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur; yalnızca etkin sayfadaki nesneler etkilenir.
• Silme işlemi sonrasında Excel'in geri alma özelliği makrolarda çalışmaz; önemli dosyalarda işlemden önce bir yedek alınması önerilir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında İçeriği Etkinleştir seçeneğine tıklayın.
2. Resimlerin silineceği sayfayı etkin hale getirin; makro yalnızca etkin sayfada çalışır.
3. Sayfa1 üzerindeki kırmızı simgeye tıklayın; sayfadaki tüm resimler silinir.
4. Kendi dosyanızda kullanmak için Alt+F11 ile VBA düzenleyicisini açın, Insert > Module ile yeni bir modül ekleyin ve ED makrosunu bu modüle taşıyın. Ardından Alt+F8 ile makroyu çalıştırın veya bir şekle atayın.