Changing font size of textframe in Slidemaster

lambuhere1

Registered User.
Local time
Today, 21:06
Joined
Nov 19, 2001
Messages
28
Hi

I am trying to add a textbox in the slide master having the user input as reference. I want to change the default font size from Timesroman 24 to arial 12. I would appreciate your kind guidance in this. For your reference, I am adding the code I am using to add the text box to my slide master.

Sub add_text()
Dim oppt As New PowerPoint.Application
Dim pptpres As Presentation
Dim pptslide, my_slide As Slide

ref = Inputbox("Enter date and time of test")

oppt.Visible = msoTrue
Set pptpres = oppt.Presentations.Add

For i = 1 To 5
pptpres.Slides.Add 1, ppLayoutBlank
Next i

pptpres.SlideMaster.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=0, Top:=492, Width:=600, Height:=12).TextFrame.TextRange.Text = "Zero time corresponds to " & ref

End Sub

Appreciate your help.

Ram P
 

Users who are viewing this thread

Back
Top Bottom