Hey Guys I am trying to get the following code working, it is basically looping filling out box shapes with data. The problem is I am trying to format each box differently, I thought I could create a string and format it but it doesn't seem to work. With objShape .Select Selection.Characters.Text = Format(strTY, strFormat1) End With The problem is when I put a strFormat1 which is an offset formula for the different formats for each txt box it just pasted the actual value in instead of formatting the box. I.e "#0.0%" is written in excel instead of formating the txt box as "#0.0%" it will just paste in "#0.0%". Hope that all makes sense. Thanks heaps in advance if you can help me with this!!! Peter

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Formating Problems with VBA code

Thread starter peter_z
Start date Apr 19, 2011

peter_z

Board Regular

Apr 19, 2011

Hey Guys

I am trying to get the following code working, it is basically looping filling out box shapes with data. The problem is I am trying to format each box differently, I thought I could create a string and format it but it doesn't seem to work.

Code:

 [FONT=Calibri][FONT=Verdana][SIZE=2]With objShape
                .Select
                Selection.Characters.Text = Format(strTY, strFormat1)
                
            End With [/SIZE][/FONT][/FONT]

The problem is when I put a strFormat1 which is an offset formula for the different formats for each txt box it just pasted the actual value in instead of formatting the box.

I.e "#0.0%" is written in excel instead of formating the txt box as "#0.0%" it will just paste in "#0.0%".

Hope that all makes sense.

Thanks heaps in advance if you can help me with this!!!

Peter