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.
Başlık şeridi
-
- Mesajlar: 40
- Kayıt: Pzt Haz 26, 2023 5:51 pm
- Lokasyon: İzmir
- Meslek: Öğretim Görevlisi
- Adınız: Kemal
- Soyadınız: Kara
-
- 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
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.
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
-
- Mesajlar: 40
- 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
Sayın tasad.
Tam istediğim gibi.
İlginize, bilginize ve emeğinize sağlık.
Teşekkürler.
Tam istediğim gibi.
İlginize, bilginize ve emeğinize sağlık.
Teşekkürler.