Powerpointe Tüm Resimleri Makro ile Belirli Boyutlara ve Hizalara Getirme

[james jones]

Merhabalar,

Aşağıdaki kodla birlikte Powerpointe yer alan resimleri belirli boyuta ve konuma getirebilirsiniz.

Tek tek uğraşmanıza gerek kalmaz.

Değerleri aşağıdaki siteden CM to Point(Computer)'a göre değiştirebilirsiniz.

Kod'lardaki veriler (Point Computer verileridir)

1 Cm 0.75 point(Computer) ediyor.

http://www.translatorscafe.com

Sub Resimboyut()
For NumSlide = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(NumSlide).Select
For Each Picture In ActiveWindow.Selection.SlideRange.Shapes
Picture.Select
Picture.LockAspectRatio = msoFalse
Picture.Height = 311.81 
Picture.Width = 500
Next
Next
End Sub

****

Sub hizalama()
For NumSlide = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(NumSlide).Select
For Each Picture In ActiveWindow.Selection.SlideRange.Shapes
Picture.Select
Picture.LockAspectRatio = msoFalse
Picture.Left = 109.984
Picture.Top = 114.236
    Next
       Next     
End Sub

 

[Murat OSMA]

Teşekkürler.

Not: Kodlarınızı code (#) tagları arasına yazarsanız daha düzgün görünür.

 

[qazxswedc321]

Merhaba,

Öncelikle çalışmanız gerçekten çok güzel ve çok kullanışlı olmuş, bunun için teşekkür ederim.

Verdiğiniz makroları çalıştırdığımda resimler otomatik olarak boyutlandırılıp hizalanıyor. Ancak slaytta sadece resim değil de yazılar da varsa, yazılarda kayma oluyor.

Yazıların kaymasını önlemek için makroda nasıl bir düzenleme yapmak gerekir?

İyi Günler.