TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub AddAndPopulateATextBox()

	Dim oTextBox As Shape
	Dim strText As String

	' Edit this to add your own text:
	strText = "Here's a whole wad of text that should wordwrap, scroll, and generally act the way you'd " _
		& "expect text in a text box to behave." & vbCrLf
	strText = strText & strText & strText & strText

	Set oTextBox = ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject(Left:=114, _
		Top:=48, _
		width:=522,  _
		height:=450, _
		ClassName:="Forms.TextBox.1",  _
		Link:=msoFalse)

	With oTextBox.OLEFormat.Object
		.MultiLine = True
		.WordWrap = True
		.ScrollBars = 2  ' fmScrollBarsVertical
		.Text = strText
	End With

End Sub