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
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