Rotate text in a shape

[orangutangas]

Hello,
I struggle with my old excel (2003). There is a thing i have to do: put arrows from one sheet which will change its color depending on data, written in some fields. Also there is a task to put these values inside created arrows. I put values using commands:
Worksheets("Map").Shapes("COL").Select
With Selection.Characters
.Text = Range("Data!E4").Value

Arrows are drawn in different angles using drawing tool. So i need to rotate the text inside the arrows respectively to angle of the arrow rotation. So how is it possible to rotate text inside that shape??
Thank you in advance

 

[VoG]

Have you tried recording a macro to give you the code?

 

[orangutangas]

Have you tried recording a macro to give you the code?

No i haven't. What macro function should i write?