TextRange.Font property (PowerPoint)
Returns a Font object that represents character formatting. Read-only.
expression A variable that represents a TextRange object.
This example sets the formatting for the text in shape one on slide one in the active presentation.
With ActivePresentation.Slides(1).Shapes(1) With .TextFrame.TextRange.Font .Size = 48 .Name = "Palatino" .Bold = True .Color.RGB = RGB(255, 127, 255) End With End With
This example sets the color and font name for bullets in shape two on slide one.
With ActivePresentation.Slides(1).Shapes(2) With .TextFrame.TextRange.ParagraphFormat.Bullet .Visible = True With .Font .Name = "Palatino" .Color.RGB = RGB(0, 0, 255) End With End With End With
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.