Başlık şeridi

Sunum dosyaları ile ilgili paylaşımlarınızı bu alanda yapabilirsiniz.
Cevapla
ilirya4561
Mesajlar: 34
Kayıt: Pzt Haz 26, 2023 5:51 pm
Lokasyon: İzmir
Meslek: Öğretim Görevlisi
Adınız: Kemal
Soyadınız: Kara

Başlık şeridi

Mesaj gönderen ilirya4561 »

Arkadaşlar selam.
Yaklaşık 1.000 sayfadan oluşan bir sunumum var.
Her sayfada, konunun ne olduğunun yazıldığı bir şerit var.
Ben bu şeritleri ilk ayarlarken fark etmemişim, 12 tık yukarıya götürmem gerekiyor.
1.000 sayfayı tek tek yapmam olanaksız gibi bir şey. Kolay bir yöntemi var mıdır?
Şimdiden teşekkürler.
tasad
Mesajlar: 31
Kayıt: Sal Ağu 01, 2023 2:07 pm
Meslek: Muhasebeci
Adınız: tarık
Soyadınız: sadık

Re: Başlık şeridi

Mesaj gönderen tasad »

Powerpoint ile pek ilgilenmem. Kodları yapay zeka copilota yazdırdım.
Sonuç iyi olunca paylaşmak istedim. Dosyanızın yedeğini alıp kodları deneyin.

Kod: Tümünü seç

Sub Yukarı_taşı()
    Dim slayt As Slide
    Dim y As Long
    Dim adim As Long
    
    adim = 12 ' 12 adım yukarı taşı
    
    For Each slayt In ActivePresentation.Slides
        For y = 1 To slayt.Shapes.Count
            If slayt.Shapes(y).HasTextFrame Then
                slayt.Shapes(y).Top = slayt.Shapes(y).Top - adim
            End If
        Next y
    Next slayt
End Sub
ilirya4561
Mesajlar: 34
Kayıt: Pzt Haz 26, 2023 5:51 pm
Lokasyon: İzmir
Meslek: Öğretim Görevlisi
Adınız: Kemal
Soyadınız: Kara

Re: Başlık şeridi

Mesaj gönderen ilirya4561 »

Sayın tasad.
Tam istediğim gibi.
İlginize, bilginize ve emeğinize sağlık.
Teşekkürler.
Cevapla