Mengubah Font Color dan Size

BY IN Tips & Trik Comments Off on Mengubah Font Color dan Size

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




Comments are closed.