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

Tags: