Microsoft Office Forums - View Single Post - [Solved] autofit text to shape (msoShapeRectangle)

viuf · 02-20-2012, 12:39 PM

Hi...

I'm trying to autofit som text in a shape (a Rectangle), but I can only find autofit in ordinary textboxes. Can anybody help?

Thanks in advance

Code:

Set oshp = ActivePresentation.Slides(1).Shapes _
.addShape(msoShapeRectangle, left, top, width, height) ' left, top, width, height
    With oshp
        .Name = "Kategori" & countTwo
    End With
    With oshp.TextFrame.TextRange
        .Text = categories(countTwo)
    End With
    
    With oshp.Fill
        .ForeColor.RGB = RGB(200, 200, 200)
        .Visible = True
    End With