Berikut ini adalah script untuk mengubah font color dan size dalam slide powerpoint dengan menggunakan VBA Macro
Sub adjust()
Dim oSld As Slide
Dim oShp As Shape
Dim oShapes As Shapes
For Each oSld In ActivePresentation.Slides
Set oShapes = oSld.Shapes
For Each oShp In oShapes
If oShp.HasTextFrame Then
If oShp.TextFrame.HasText Then
oShp.TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, B)
oShp.TextFrame.TextRange.Characters.Font.Size = 24
oShp.TextFrame.VerticalAnchor = msoAnchorBottom
End If
End If
Next oShp
Next oSld
End Sub