Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 50, 50)
With shp
…
.Fill.ForeColor.RGB = RGB(255, 255, 255)
…
.TextFrame.Characters.Font.Color = RGB(0, 0, 0)
…
End With
The code:
.TextFrame.Characters.Font.Color = RGB(0, 0, 0)
gives results <grey> not <black> why ?
is there any syntax error ?
Many thanks in advance
Bookmarks