In this little snip of code, the rotation will not work and I can find a
decent example to show me where it is wrong.

Worksheets("fran").Shapes.AddTextbox(msoTextOrient ationHorizontal,
d(i, 5), d(i, 6), 25, 15).TextFrame.Characters.Text = Round(i, 0)
.Shapes(.Shapes.Count).Fill.Transparency = 1#
.Shapes(.Shapes.Count).Fill.ForeColor.SchemeColor = 9
.Shapes(.Shapes.Count).Line.Visible = msoFalse
.Shapes(.Shapes.Count).Rotation = w
.Shapes(.Shapes.Count).Select False

Any help appreciated.

If you select a textbox on the worksheet and look down at the drawing
toolbar, you will see the rotation button is grayed out.

If you draw a line on the worksheet and select it and look at the drawing
toolbar, you will see the rotation button is active.

Not all shapes can be rotated.

--
Regards,
Tom Ogilvy


"JackJ" wrote in message
...
In this little snip of code, the rotation will not work and I can find a
decent example to show me where it is wrong.

Worksheets("fran").Shapes.AddTextbox(msoTextOrient ationHorizontal,
d(i, 5), d(i, 6), 25, 15).TextFrame.Characters.Text = Round(i, 0)
.Shapes(.Shapes.Count).Fill.Transparency = 1#
.Shapes(.Shapes.Count).Fill.ForeColor.SchemeColor = 9
.Shapes(.Shapes.Count).Line.Visible = msoFalse
.Shapes(.Shapes.Count).Rotation = w
.Shapes(.Shapes.Count).Select False

Any help appreciated.