Memindah object rata bawah di seluruh slides

BY IN Tips & Trik Comments Off on Memindah object rata bawah di seluruh slides

Hal ini saya temukan saat mengedit subtitle untuk drama colossal Edelweiss Messenger dengan menggunakan Power Point. Semua subtitle pada awalnya berada di tengah slide, namun karena sesuatu alasan, teksnya diminta untuk digeser ke bawah. Saat browsing di internet, saya tidak menemukan cara yang cocok untuk menggeser object langsung automatic seluruh slides (total slidenya ada 300 lebih!!!) Untuk menggeser satu persatu jelas akan makan waktu lama dan juga it’s kind of waste of time!!! Jadi, satu-satunya kemungkinan yang ada menurut saya adalah lewat Macro VBA (Visual Basic Application). Setelah browsing kesana kemari, ada script yang bisa dimasukkan ke Macro sebagai berikut:

Sub align_bottom()
Dim osld As Slide
Dim oshp As Shape
Dim sngPictop As Single
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type <> msoTextBox Then
oshp.LockAspectRatio = msoTrue
oshp.Width = ActivePresentation.PageSetup.SlideWidth
oshp.Top = ActivePresentation.PageSetup.SlideHeight – oshp.Height
oshp.Left = 0
sngPictop = oshp.Top
End If
Next
For Each oshp In osld.Shapes
If oshp.Type = msoTextBox Then
oshp.Left = 0
oshp.Top = sngPictop – (oshp.Height)
End If
Next
Next
End Sub

Untuk membuat align bottom, kita modifikasi satu baris menjadi sebagai berikut:

oshp.Top = sngPictop + (ActivePresentation.PageSetup.SlideHeight – oshp.Height)

Setelah itu tinggal kita RUN Macronya dan … voila! seluruh object yang tadinya kita set di tengah otomatis bergeser ke bawah semua. Semoga bermanfaat.




Comments are closed.