PowerPoint ile Resimlerin Boyut ve Konumlarını Düzenleme Kodları

Aşağıdaki kodlarla Powerpoint'te yer alan tüm resimleri aynı anda 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.

Kodlardaki veriler (Point Computer verileridir)

1 Cm 0.75 point(Computer) ediyor.

Object moved

Resimlerin boyutlarını ayarlamak için şu kodları çalıştırın:

scription">Kod:
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
Resimleri Hizalamak için de şu komutları çalıştırın:

description">Kod:
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
Alıntı: Powerpointe T