Biçim boyacısı

[ilirya4561]

Arkadaşlar selam.
Elimde 800 sayfayı aşkın bir sunum var.
Fakat sayfa özelliklerindeki animasyonlar, yazı şekilleri ve puntoları istediğim gibi değil.
Bu sunumu, elimde tam istediğim biçimde olan başka bir sunum haline nasıl getirebilirim?
Tek tek uğraşmak çok zamanımı alır.
Şimdiden teşekkürler.

[erseldemirel]

Bu örnek vba kodu ile sunum dosyasındaki tüm slaytlarda metinlerde ve animasonlarda arial fontu ve 20 punto yapar. Geliştirebilirsiniz

Sub test()
For Each slide In ActivePresentation.Slides
For Each shape In slide.Shapes
If shape.HasTextFrame Then
shape.TextFrame.TextRange.Font.Name = "Arial"
shape.TextFrame.TextRange.Font.Size = 20
End If
Next shape
Next slide
For Each slide In ActivePresentation.Slides
For Each effect In slide.TimeLine.MainSequence
effect.EffectInformation.TextUnitEffect.FontName = "Arial"
effect.EffectInformation.TextUnitEffect.FontSize = 20
Next effect
Next slide
End Sub

[ilirya4561]

Arsel arkadaşım selamlar.
Öncelikle ilginize ve emeğinize teşekkür ederim.
Kısmen işimi gördü. Ancak, animasyonların ve sayfa başlarındaki logoların da bu 800 küsur sayfalık sunumun içine aktarılması.
Yine de çok çok teşekkür ederim.

[erseldemirel]

Animasyon pek bilmiyorum denemedn ama varsa logo resim vs her slaytta kopyalacak kod yazılabilir