how put numberformt inside shape when show numbers

[abdo meghari]

Hi experts
I search for way to show numberformat inside specific shape like this #,##0.00
this is what I have

Sheets("INV_PUR").Shapes("Rectangle 3003").TextFrame.Characters.Text = Format(Sheets("INV_PUR").Shapes("Rectangle 3003").TextFrame.Characters.Text, "#,##0.00")

but doesn't work at all ,
any other way to succeed it ,please?

 

[dmt32]

Try

     Dim objShape As Shape
   
    Set objShape = Worksheets("INV_PUR").Shapes("Rectangle 3003")
   
    With objShape.TextFrame.Characters
        .Text = Format(.Text, "#,##0.00")
    End With

Dave

 

[abdo meghari]

thanks Dave, unfortunately still show number without formatting like this 10000 or 700 .

 

[dmt32]

thanks Dave, unfortunately still show number without formatting like this 10000 or 700 .

curious, worked ok for me which is result I assume you want?

 

[abdo meghari]

I really sorry Dave !!

my bad I put the code in the beginning and surley I have another code , it seems to affected each other of them who the code should run firstly .I put in the ending of procedure and works greatly .

many thanks for your help

 

[dmt32]

no worries glad resolved & appreciate feedback

Dave