R
Roger Seiler
I got stuck with this:
Dim myTB As Shape
Set myTB = Application.ActivePresentation.Slides(2).Shapes("217")
MsgBox myTB.Type
With myTB
.MultiLine = True
.WordWrap = True
.Value = "-----------"
End With
I get an error with setting the .MultiLine but in the message box I can see
that it is a text box.
What have I done wrong?
Dim myTB As Shape
Set myTB = Application.ActivePresentation.Slides(2).Shapes("217")
MsgBox myTB.Type
With myTB
.MultiLine = True
.WordWrap = True
.Value = "-----------"
End With
I get an error with setting the .MultiLine but in the message box I can see
that it is a text box.
What have I done wrong?