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