Mengubah Warna Shape di Power Point

BY IN Tips & Trik Comments Off on Mengubah Warna Shape di Power Point

Berikut ini adalah script untuk mengubah warna shape dalam slide powerpoint dengan menggunakan VBA Macro

Sub adjust()
Dim oSh As Shape
Dim oSl As Slide

‘ Look at each slide in the current presentation:
For Each oSl In ActivePresentation.Slides

‘ Look at each shape on each slide:
For Each oSh In oSl.Shapes

oSh.Fill.ForeColor.RGB = RGB(0, 0, 0)

Next oSh

Next oSl
End Sub




Comments are closed.