Markus
Through much trial and error. Lots of error. I finally got it to work
by including the following cText object.
Dim sShape As Shape
Dim cText As Characters ' Added
Set sShape = worksheet.AddShape(msoShapeRectangle, left,
top, width, height)
With sShape
.Fill.Transparency = 1#
.Line.Transparency = 1#
With .TextFrame
.Characters.Text = label
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With
End With
Set cText = sShape.TextFrame.Characters ' Added
cText.Font.Size = 6 ' Added
Thanks for your suggestion.
Ed
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!