Excel 2007 AutoShape Text - Format as Percentage?

[sthrncaliguy]

I am using an autoshape as a progress bar in Excel 2007, and my macro effecectively resizes my rectangle from 0-100% based on the progress through my routine, and I added a line of code that actually writes the percantage into the Rectangles text field, but I can't figure out how to format the text string as a percentage...

Since I am using a variable to load text into the box, without formatting its showing up like this: 6.213545312 when I am at that percentage progress..

I would like it to show up as 6.21%

Is this possible??

 

[MickG]

Perhaps:-

Dim p As String
p = "6.123456789"
ActiveSheet.Shapes("Rectangle 4").OLEFormat.Object.Text = Format(p / 100, "0.00%")

 

[ango858]

You could just write a macro that can run after the routine and select the range needed and reformat. let me know if you need an example (im not on a computer with excel right now but can write it for you later)