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

[WeBMasteR]

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 (https://www.translatorscafe.com)

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



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:



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 (https://www.excel.web.tr/f51/powerpointe-tum-resimleri-makro-ile-belirli-boyutlara-ve-t133922.html)