TextRange2.BoundWidth property (Office)
Gets the width, in points, of the text bounding box for the specified text. Read-only.
expression An expression that returns a TextRange2 object.
The text bounding box is not the same as the TextFrame object. The TextFrame object represents the container in which the text can reside. The text bounding box represents the perimeter immediately surrounding the text.
This example adds a rounded rectangle to slide one with the same dimensions as the text bounding box.
With ActivePresentation.Slides(1).Shapes(1) Set txb = .TextFrame.Text Set roundRect = .AddShape(ppShapeRoundRect, _ txb.BoundLeft, txb.BoundTop, txb.BoundWidth, txb.BoundHeight) roundRect.Fill.Transparency = 0.25 End With
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.