autofit text to shape (msoShapeRectangle)

viuf · #1 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding text to auto shape and rotating	Hot Mumma	Word	1	06-14-2011 05:15 PM
Autofit Image to a Preset Cell	GarethHourihane	Drawing and Graphics	6	06-02-2011 05:05 AM
Custom shape in charts?	gilezajner	PowerPoint	0	12-15-2010 02:21 AM
Shape Objects	Space Cowboy	PowerPoint	4	10-04-2010 07:14 PM
Table Autofit Behavior Default	Henri Blits	Word Tables	0	07-18-2006 03:49 PM