J
JackJ
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(msoTextOrientationHorizontal,
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.
decent example to show me where it is wrong.
Worksheets("fran").Shapes.AddTextbox(msoTextOrientationHorizontal,
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.