Hi, below is my code. I am creating a textbox macro that allows you to insert a textbox with footnotes at the bottom of the page for my company's standard powerpoint slide deck. First line says "Note:" and second line says "Source". I want to format the textbox so that the internal margins on the top, bottom, left and right are all "0". Can you please help?? I am not a very technical person and have gotten this far but am now stuck! Thanks!
Sub addtxtbox()
Dim osld As Slide
Dim oSh As Shape
For Each osld In ActiveWindow.Selection.SlideRange
Set oSh = osld.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=13, _
Top:=500, Width:=659, Height:=16)
With oSh.TextFrame.TextRange
' MUST add text first
' else PPT ignores subsequent text formatting
.Font.Name = "Tahoma"
.Font.Size = 6
.ParagraphFormat.Alignment = ppAlignLeft
'Set the text
.Text = "Note:" & vbCrLf & "Source:"
' or even
' .Text = cstr(oSld.SlideIndex)
End With
Next osld
End Sub