Change the shape size based on the number of characters

[blelli]

Dears,

Supposing I have a rectangle shape... is it possible to change its X size based on a string's number of characters.

So, if it's a big text,it should be a big rectangle.

And how can I write this string's name into the rectangle?

Thank you

 

[MUKESHY12390]

here you go.

you need to play with code and try changing high and width.

Sub Change_ShapeSize()
Dim Text_lenght As String
Dim oShape As Shape
Set oShape = Worksheets("Sheet3").Shapes("Rectangle 1")
With oShape
        Text_lenght = Len(.TextFrame2.TextRange.Characters.Text)
        
            Select Case Text_lenght
                Case 1 To 10
                    .Height = 50   ''' change number here
                    .Width = 150   '' change number here
                Case 11 To 20
                    .Height = 100   '' change number here
                    .Width = 250   '' change number here
                Case 21 To 30
                    .Height = 50   '' change number here
                    .Width = 300  '' change number here
                Case Else
                    .Height = 150  '' '' change number here
                    .Width = 150  '' change number here
                End Select
    End With
    oShape.TextFrame2.TextRange.Characters.Text = "This for testing..."    ''''' this line write text into shape.
End Sub