how to auto resize a shape width

[xiamen168]

how to auto resize a shape width by VBA or setting?
thanks!

[wapperdude]

Several questions...
1)  is there a maximum width?
2)  it's there a minimum width?
3)  are there only two rows?  Are there always 2 rows?
4)  is the text actual words our just a string of characters?
5)  have you tried other font justifications
6)  not every case well divide into two equal length rows, especially with font that uses variable width kerning, so how is that handled?

In short, you have not provided adequate and sufficient info.

Wapperdude