background texture

P

paschoemans

Hello,

I've a problem with a macro that should change the background to use a
texture.
Here is the code:

Sub FillBackgroundWithTexture()
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(255, 255, 204)
ActiveDocument.Background.Fill.Transparency = 0#
ActiveDocument.Background.Fill.PresetTextured msoTextureParchment
End Sub

This macro has been recorded with the tool.

The problem is that, if I don't change the background to use another color
(or texture), nothing happend. If I change it before, this works perfectly.

And more strange, if I'll look in the background dialog box I have the
texture selected but not displayed. If I do ok, it works.

Do you know why ?

Thanks
 
Top