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

  • Thread starter Thread starter Phil
  • Start date Start date
P

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
 
Nevermind. Instead of banging my head on this one I decided to scrap
this approach and I implemented something different.
 
Back
Top