troubleshooting Question

TextRange problem in PowerPoint

Avatar of thor_ostergaard
thor_ostergaard asked on
Microsoft Office
11 Comments1 Solution977 ViewsLast Modified:
I use the following code to fill different text in a textbox during slideshow

Sub PopUp(sText As String)
    Dim x As Slide
    Set x = GetActiveSlide(SlideShowWindows(1))
    x.Shapes("Popuptext").TextFrame.TextRange = sText
    x.Shapes("Popuptext").TextFrame.TextRange.Characters(1, InStr(1, sText, vbCrLf) - 1).Font.Bold = msoCTrue
    x.Shapes("Popuptext").TextFrame.TextRange.Characters(InStr(1, sText, vbCrLf), Len(sText) - InStr(1, sText, vbCrLf)).Font.Bold = msoFalse
    x.Shapes("Popuptext").TextFrame.AutoSize = ppAutoSizeShapeToFitText
    x.Shapes("Popuptext").Visible = msoTrue
End Sub

But if the sText string is longer than what fits in the shape the shape dont resize to fit the text - what can I do?
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 11 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 11 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros