VBA Pro Needed - Excel to PowerPoint

[KristyP]

Hello,

I wrote a macro to pull a large dataset from excel and put it in multiple powerpoint slides....everything works great but the text "pDesc" is often too large for the shape I created in the piece of code below. I have to keep the shape the same size so I have to think of a way to auto-fit the font size into the shape. Any suggestions? I've tried using the LENstring function to do a character count and shrink it that way but it is difficult because the text has many spaces and indents ect.


activeslide.Shapes.AddShape(msoShapeRectangle, 590, 0, 370, 120).TextFrame.TextRange.Text = pDesc

Thank you!!

 

[JLGWhiz]

Re: VBA Pro Needed

Maybe change the reduce the font size.

 

[JLGWhiz]

Re: VBA Pro Needed

With ActiveSlide.Shapes.AddShape(msoShapeRectangle, 590, 0, 370, 120).TextFrame.TextRange
   .Text = pDesc
   .Font.Size = 8
End With

Not sure this is correct syntax for cross applications but it will give you an idea.