Başlığı 19 tık aşağı taşımak

[35ibo45]

Arkadaşlar selam.
2.000 sayfaya yakın sunumum var.
Bu sayfaların bir çoğunda başlık var. (Hepsinde değil)
İsteğim şu : Bu başlıkları ve başlık altında bulunan yazıları 19 tık aşağıya taşımak istiyorum.
Bütün sayfalarla tek tek uğraşmanın olanaksız olduğunu takdir edersiniz.
Bunu kodla ya da başka bir yolla en hızlı nasıl halledebilirim?
Şimdiden teşekkürler

 

[Muzaffer Ali]

Merhaba.
En soldaki sayfayı seçin
Sonra CTRL tuşuna basılı tutarak en sağdaki sayfayı seçin.
Tüm sayfalar seçili olmuş oldu.
Şimdi yapmak istediğinizi yapın.
Yaptıklarınız tüm sayfalarda geçerli olur.

 

[35ibo45]

Merhaba.
En soldaki sayfayı seçin
Sonra CTRL tuşuna basılı tutarak en sağdaki sayfayı seçin.
Tüm sayfalar seçili olmuş oldu.
Şimdi yapmak istediğinizi yapın.
Yaptıklarınız tüm sayfalarda geçerli olur.

Sayın Muzaffer Ali Bey.
Öncelikle ilginize teşekkür ederim.
Ancak, çözüm önerinizde dediğiniz "en soldaki sayfayı seçin, sonra CTRL tuşuna basılı tutarak en sağdaki sayfayı seçin. Tüm sayfalar seçilmiş oldu" cümlenizi inanın anlayamadım.
En soldaki ve en sağdaki sayfalar nerede?
Saygısızlığımı ve ukalalığımı bağışlayın lütfen ama seçim yaparken CTRL tuşuna basarsanız aradaki tüm sayfalar secilmez, sadece CTRL tuşu ile tıklanan sayfalar seçilir. Aradaki tüm sayaları seçmek için shift tuşuna basmak gerekir diye biliyorum.
Yanılıyorsam düzeltin lütfen.
Sevgiyle kalın.

 

[Muzaffer Ali]

Rica ederim.
Tüm sayfaları seçmen gerektiğini söylemek istedim.
Buraya kadar anlaşıldığına göre devamını da yapabilirsiniz.

Tüm sayfaları yada birkaç sayfayı seçip birinde bir şey yaptığınızda tüm seçili sayfalarda aynı işlem yapılmış gibi olur.
Örneğin tüm sayfaları seçip A1 hücresine "Test" yazarsanız tüm sayfaların A1 hücresine "Test" yazılır yada satır eklerseniz hepsine satır eklenir.
Bu mantık ile sorununuzu çözebilirsiniz.

 

[ÖmerBey]

Sayın Muzaffer Ali,
Sanırım PowerPoint programı için yardım isteniyor.

2.000 sayfaya yakın sunumum var.

 

[35ibo45]

Sayın Muzaffer Ali,
Sanırım PowerPoint programı için yardım isteniyor.

Ömer Bey selam.
Evet, powerpoint ile ilgili yardım talebinde bulundum. Sanırım Muzaffer Ali Beyin dikkatinden kaçmış. Canı sağ olsun.

Sayın Muzaffer Ali,
Sanırım PowerPoint programı için yardım isteniyor.

 

[ÖmerBey]

Alışkanlık...
Burası bir Excel forumu olduğu için direk Excele odaklanıyoruz. Sizin sorunuzda da net bir ifade olmayınca ilk önce ben de öyle sanmıştım. Ancak sonradan ana konunun farklı olduğunu görünce anladım sayılır.
Üzerinde çalışılması için örnek bir dosya paylaşırsanız bilgisi olanlar yardımcı olacaktır.

 

[35ibo45]

Alışkanlık...
Burası bir Excel forumu olduğu için direk Excele odaklanıyoruz. Sizin sorunuzda da net bir ifade olmayınca ilk önce ben de öyle sanmıştım. Ancak sonradan ana konunun farklı olduğunu görünce anladım sayılır.
Üzerinde çalışılması için örnek bir dosya paylaşırsanız bilgisi olanlar yardımcı olacaktır.

Teşekkürler tekrar. Sevgiyle kalın.

 

[ÖmerBey]

Örnek dosya demiştim ama paylaşmayacaksınız galiba.
Neyse dosyanızın yedeğiniz aldıktan sonra aşağıdaki kodu deneyiniz.

Sub kod()
Dim syf As Slide
Dim sh As Shape
For Each syf In ActivePresentation.Slides
    For Each sh In syf.Shapes
        sh.Top = sh.Top + 19
    Next
Next
End Sub

 

[Muzaffer Ali]

Ömer Bey selam.
Evet, powerpoint ile ilgili yardım talebinde bulundum. Sanırım Muzaffer Ali Beyin dikkatinden kaçmış. Canı sağ olsun.

Sorunuzda uygulama adı geçmeyince Excel sandım. Hep Excel'e odaklanıyoruz.
Sayın ÖmerBey sorunu çözmüş görünüyor.
Kolay gelsin.

 

[35ibo45]

Sorunuzda uygulama adı geçmeyince Excel sandım. Hep Excel'e odaklanıyoruz.
Sayın ÖmerBey sorunu çözmüş görünüyor.
Kolay gelsin.

Haklısınız. İlginize ve emeğinize tekrar teşekkür ederim. Sevgiyle kalın

Örnek dosya demiştim ama paylaşmayacaksınız galiba.
Neyse dosyanızın yedeğiniz aldıktan sonra aşağıdaki kodu deneyiniz.

Sub kod()
Dim syf As Slide
Dim sh As Shape
For Each syf In ActivePresentation.Slides
    For Each sh In syf.Shapes
        sh.Top = sh.Top + 19
    Next
Next
End Sub

Ömer Bey çok teşekkür ederim. Tam istediğim gibi.
İlginize, bilginize, emeğinize sağlık.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[35ibo45]

Rica ederim,
İyi çalışmalar...

Ömer Bey tekrar selam.
Konu ile ilgili değil ama PowerPoint ile ilgili olduğu için ek bir soru daha sormak istiyorum.
PowerPointte insert tuşu aktif olmuyor. Çok araştırdım ama çözümünü bulamadım. Yardımcı olabilir misiniz?
Şimdiden teşekkürler.