Logoları aynı anda silmek

[magnesia]

Arkadaşlar selam.
Yüzlerce sayfadan oluşan sunumum var. Her sayfanın iki köşesinde şirket logoları var.
Logo değişti ve bu logoları yüzlerce sayfada tek tek silip yenisini yerleştirmek haylı zaman alacak.
Ctrl tuşu ile tüm sayfaları aynı anda seçebiliyorum ama sayfadaki logoyu tıkladığımda bütün bu seçimler kalkıyor.
Pratik yolu var mıdır?
Şimdiden teşekkürler.

 

[magnesia]

Yardım edebilecek arkadaş yok mu?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sayfalardaki tüm nesneleri sileceğinden dosyanızı yedekleyip deneyiniz.

Sub Logolari_Sil()
    For Each Sayfa In ThisWorkbook.Worksheets
        For Each Logo In Sayfa.Shapes
            Logo.Delete
        Next
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[magnesia]

Sayın Korhan Hocam.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Powerpointte ilk kez böyle bir işlem yapacağım.
Excel gibi yapıp Alt+F11 tuşları ile kod sayfasını görüntüledim fakat kodları yazabileceğim sayfa etkin değildi.. İnsert yapıp modül ekledim ve bu kodları modülün içine attım fakat bu kodları çalıştıracak düğmeyi nasıl oluşturacağımı bilemedim..
İşlem doğru mu yoksa başka bir yolu var mı?

 

[Korhan Ayhan]

Kusura bakmayın ben sorunuzu excel dosyası olarak algıladım. Verdiğim kodlar excel dosyasında çalışır.

 

[magnesia]

Canınız sağ olsun sayın Korhan Ayhan..

 

[alicimri]

Sn. magnesia
Sununuzda sayfaları ve logoları nasıl oluşturduğunuza göre uygulanacak yöntem değişir. Eğer ilk sayfayı oluşturup, bu sayfanın her iki köşesine logoları yerleştirip, daha sonra bu sayfayı kopyalayıp yapıştırarak çoğaldı iseniz bu logoların index ve adları aynı olur.
Orijinal dosyanızı yedekleyin
Aşağı kodlarda ilk logonun index inin 1 olduğunu varsaydım. Yeni logonun da dosya adı ve yolunun "D:\a.JPG" olduğunu varsaydım. Deneyin, eğer sonuç alabilirseniz kodları geliştirebilinir

Sub a()
For i = 1 To 5
sol = ActivePresentation.Slides(i).Shapes(1).Left
ust = ActivePresentation.Slides(i).Shapes(1).Top
en = ActivePresentation.Slides(i).Shapes(1).Width
yuk = ActivePresentation.Slides(i).Shapes(1).Height
ActivePresentation.Slides(i).Shapes(1).Delete
ActivePresentation.Slides(i).Shapes.AddPicture FileName:="D:\a.JPG", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
    Left:=sol, Top:=ust, Width:=en, Height:=yuk
    Next
End Sub

Not Korhan beyin kodları için yaptığınız gibi modül oluşturup kodları oraya yapıştırın. Bu modül sayfasında iken F5 tuşuna basarak kodları çalıştırın.

 

[magnesia]

alicimri Bey.
İlginize, bilginize, emeğinize sağlık.
İşimi gördü.
Çok teşekkür ederim.

 

[Hoksisamuray1]

peki ustad dosya açıldıgında benım dosyada fırma logosu ve logonun altında kısa cıklama metnı var bunu mako kaydet ıle denedım sılmedı. Bunu nasıl halledebılırım? Sayfanın basında bır logo var o degılde sayfanın altındakıler sılınsın ıstıyorum