Fill property in macro for PPT 2007

[rjmccafferty1]

I am trying to make a text box have no fill, using a macro in PowerPoint 2007.

I went to an XP version of PowerPoint and recorded a macro to do this. The code it created was:

With ActiveWindow.Selection.ShapeRange
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = ppFill
.Fill.Transparency = 0#
End With

This code works fine in a macro in the XP version of PowerPoint, but does not work in PowerPoint 2007. It returns a solid white fill with no transparency.

Does anyone know what code will work in VBA (a macro) in PowerPoint 2007 to give a text box no fill at all?

 

[rjmccafferty1]

I made a mistake in my posting. The code I posted returned a fill on purpose. The code generated to remove the fill was:

With ActiveWindow.Selection.ShapeRange
.Fill.Visible = msoFalse
.Fill.Solid
.Fill.Transparency = 0#
End With