Why doesn't this work in Excel 2007? Is this a bug?

[Phil]

The code below is supposed to add a WordArt diamond symbol and color
it red. This works perfectly in Excel 2003, but not in 2007. What
happens in 2007 is that the back color changes to red instead of the
fore color. Is this a bug? Any ideas?

yoffset = 15
xoffset = 184
top = 43
red = 10
Call AddDiamondSymbol(xoffset, top + yoffset, 7, 7, ChrW(&H2666), red)

Function AddDiamondSymbol(left, top, height, width, tier, fillcolor)
ActiveSheet.Shapes.AddTextEffect(PresetTextEffect:=0, _
Text:=tier, FontName:="Arial Black", FontSize:=20, _
FontBold:=False, FontItalic:=False, left:=left,
top:=top).Select
With Selection.ShapeRange
.Fill.Visible = True
.Fill.Solid
.Fill.ForeColor.SchemeColor = fillcolor
.Fill.Transparency = 0
End With
End Function

 

[Phil]

Nevermind. Instead of banging my head on this one I decided to scrap
this approach and I implemented something different.

 

[Peter]

Nevermind. Instead of banging my head on this one I decided to scrap
this approach and I implemented something different.

Good thinking Phil