JamJar
02-07-2008, 05:41 PM
This is the code that I've been working with so far:
--------------
Sub AddTextBox()
Dim MyText
MyText = InputBox("Enter text here")
For i = 1 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(i).Shapes.AddS 0, 0, 720, 30).TextFrame
.TextRange.Text = MyText
End With
Next
End Sub
--------------
I've been reading about the AutoSize method but can't seem to get it to work with my code. All I want to do is create a shape that reshapes itself to fit the text. Any help would be very, very much appreciated!
--------------
Sub AddTextBox()
Dim MyText
MyText = InputBox("Enter text here")
For i = 1 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(i).Shapes.AddS 0, 0, 720, 30).TextFrame
.TextRange.Text = MyText
End With
Next
End Sub
--------------
I've been reading about the AutoSize method but can't seem to get it to work with my code. All I want to do is create a shape that reshapes itself to fit the text. Any help would be very, very much appreciated!