Logoları kaldırma

[ilirya4561]

Arkadaşlar selam.

1.000 sayfanın üzerindeki sunum sayfalarının her iki üst köşesinde logolar var. Ben bu logoları toplu olarak nasıl kaldırabilirim?

Şimdiden teşekkürler.

[erseldemirel]

Tüm slaytları seçip; ilk slaytta logoya tıklayıp silerseniz genelde tüm slaytlarda silmesi lazım. Ayrıca bu kod ilede tüm şekilleri siler

Kod: Tümünü seç

Sub Test()   
    For slideIndex = 1 To ActivePresentation.Slides.Count      
        For shapeIndex = ActivePresentation.Slides(slideIndex).Shapes.Count To 1 Step -1      
            If ActivePresentation.Slides(slideIndex).Shapes(shapeIndex).Type = msoPicture Then
                ActivePresentation.Slides(slideIndex).Shapes(shapeIndex).Delete
            End If
        Next shapeIndex
    Next slideIndex
End Sub

[ilirya4561]

Sayın erseldemirel.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Verdiğiniz kodları kopyalayıp sunum dosyasını açtım ve Alt+F11 yapıp kod sayfasını açtım fakat kodların yazılacağı bölüm etkin olmuyor.
Ayrıca, bu sayfalar içinde logo dışında bir sürü resim de var. Onlar da silinirse işimi görmez diye düşünüyorum.
Kodları nereye yapıştıracağım konusunda tekrar yardımlarınızı bekliyorum.
Saygılarımla.

[sahin]

silmek istediğiniz logo resimlerin isimleri farklımı log1, logo2 ..gibi, örnek dosya paylaşırsanız iyi olur

[ilirya4561]

Şahin arkadaşım selam. İlginize teşekkürler. Evet. Bütün logolar farklı isimlerde. Dosya eklemeye çalıştım ama başardım mı bilmiyorum.

[sahin]

dosya eklenmemiş zipleyip ekleyebilirsiniz, belki resim konumları aynı yerde ise bu şekilde silinebilir

[ilirya4561]

Yok.. Dosya eklemeyi başaramadım. (Daha doğrusu beceremedim.) Çünkü "Dosya ekle" diye bir bölüm bulamadım.

[sahin]

"gönder " butonu sol tarafında "tam editör ve önzleme" tıkladığınızda aşağıda dosya ekleme bölümü çıkıyor

[ilirya4561]

ZIP ya da RAR haline getirip eklemeye çalışıyorum. "Hata. Dosya boyutu çok büyük" diyor. Halbuki sadece 3 sayfalık bir dosya.
Neyse. Sanırım başaramayacağız. Yine de ilginize teşekkürler

[ilirya4561]

Sanırım oldu...

[sahin]

ekte, denemeden önce sunumun kopyasını alın...

Sunum.rar

[ilirya4561]

Sayfanın üst köşelerinde bulunan milli eğitim ve şirket logoları. Bir de sayfanın üzerindeki konu başlığının yazı puntolarını değiştirmek istiyorum.
İşlemleri sırasıyla, basamak basamak yazabilirseniz sevinirim.

[sahin]

ekte, denemeden önce sunumun kopyasını alın...

Sunum.rar

[ilirya4561]

Şahin arkadaşım tekrar teşekkür ederim. Ancak butonlar aktif olmuyor. Excelde olduğu gibi tasarım modu butonu ile aktif hale getirebilir miyim diye araştırdım fakat powerpointte böyle bir sekme göremedim.

[sahin]

butonlar slaytı başlatınca aktif oluyor, yada kod penecresini açmak için alt + F11 basın, videoda açıkladım

Medya2.rar

Sunum2.rar