Powerpointe Tüm Yazıları Aynı Boyuta ve Renge Getirme

[james jones]

Sub dede()

Dim s As Slide
Dim shp As Shape

For Each s In ActivePresentation.Slides

    For Each shp In s.Shapes
        If shp.HasTextFrame Then
            With shp
            .TextFrame.TextRange.Font.Name = "Arial"
            .TextFrame.TextRange.Font.Size = 12
            .TextFrame.TextRange.Font.Bold = True

                With .TextFrame.TextRange
                 .ParagraphFormat.SpaceBefore = 0
                 End With

            End With

        End If
   Next shp

Next s
End Sub

Sub dede2()
Dim shp As Shape, sl&
For sl = 1 To ActivePresentation.Slides.Count
For Each shp In ActivePresentation.Slides(sl).Shapes
On Error Resume Next
Debug.Print shp.TextFrame.TextRange.Font.Color.RGB
shp.TextFrame.TextRange.Font.Color = vbRed
Next
Next sl
End Sub

Renkler

vbBlack 0x0 Black
vbRed 0xFF Red
vbGreen 0xFF00 Green
vbYellow 0xFFFF Yellow
vbBlue 0xFF0000 Blue
vbMagenta 0xFF00FF Magenta
vbCyan 0xFFFF00 Cyan
vbWhite 0xFFFFFF White