I have a problem with WordArt in Excel 2007. The code below works
perfectly fine in EXcel 97 through to 2003 but in 2007 the text
characters are filled white, but in earlier version they where
transparent.

I can't find how to set the transparency in Excel 2007 via code, but
can do it manually via the mouse/keyboard.

Any help most appreciated.

Set WaterMark = ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "This
is my Sample Text", _
"Arial Black", 36#, msoFalse, msoFalse, 175#, 200#)
With WaterMark
.Fill.Visible = msoFalse
.Fill.Transparency = 1#
.Line.Weight = 0.75
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 1#
.Line.Visible = msoTrue
.Line.ForeColor.SchemeColor = 23
.Line.BackColor.RGB = RGB(255, 255, 255)
.Rotation = -30
End With

Regards,
Dennis.

Dennis -

Can you record a macro while you "do it manually via the mouse/keyboard"?

- Mike
http://www.mikemiddleton.com

wrote in message
oups.com...
I have a problem with WordArt in Excel 2007. The code below works
perfectly fine in EXcel 97 through to 2003 but in 2007 the text
characters are filled white, but in earlier version they where
transparent.

I can't find how to set the transparency in Excel 2007 via code, but
can do it manually via the mouse/keyboard.

Any help most appreciated.

Set WaterMark = ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "This
is my Sample Text", _
"Arial Black", 36#, msoFalse, msoFalse, 175#, 200#)
With WaterMark
.Fill.Visible = msoFalse
.Fill.Transparency = 1#
.Line.Weight = 0.75
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 1#
.Line.Visible = msoTrue
.Line.ForeColor.SchemeColor = 23
.Line.BackColor.RGB = RGB(255, 255, 255)
.Rotation = -30
End With

Regards,
Dennis.