Dim shp As Shape
Set shp = ActiveSheet.Shapes("Test")
shp.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent3
shp.Fill.ForeColor.TintAndShade = 0.799981688894314

' and for the border, or
shp.Line.ForeColor.ObjectThemeColor = msoThemeColorAccent3

Regards,
Peter T

"Roger" wrote in message
...
I can format shapes with RGB
ActiveSheet.Shapes("Test").Fill.ForeColor.RGB = RGB(128, 128, 128)
Is there a way to format a shape using themecolors in the same way you can
format a cell
With Range("A1").Interior
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.799981688894314
End With
I have tried every variation of the code & syntax to no avail - could
someone give me an example of the code to do this please - thankyou in
anticipation