diff options
author | Behrend Cornelius <bc@openoffice.org> | 2001-07-05 08:29:45 +0000 |
---|---|---|
committer | Behrend Cornelius <bc@openoffice.org> | 2001-07-05 08:29:45 +0000 |
commit | f29abc4e5fca5719e83857611e6ec0b361bf4465 (patch) | |
tree | 827d6da5486d10e6f16c8b17e9c95dd423b876de /wizards | |
parent | 025676f068e538b5eafa0c6fcbd394a527794ff2 (diff) |
#89286# Query about existance of backgroundgraphic inserted
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/webwizard/HtmlAutoPilotBasic.xba | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/wizards/source/webwizard/HtmlAutoPilotBasic.xba b/wizards/source/webwizard/HtmlAutoPilotBasic.xba index 3cd7949de7d6..e5b382937686 100644 --- a/wizards/source/webwizard/HtmlAutoPilotBasic.xba +++ b/wizards/source/webwizard/HtmlAutoPilotBasic.xba @@ -503,8 +503,10 @@ Dim i as Integer If oPageFamily.GetByIndex(i).IsInUse Then oStyle = oPageFamily.GetbyIndex(i) If oStyle.PropertySetInfo.HasPropertybyName("BackGraphicURL") Then - oStyleBack.GraphicUrl = CopyFile(oStyle.BackGraphicUrl, SavePath) - Exit Sub + If oStyle.BackGraphicUrl <> "" Then + oStyleBack.GraphicUrl = CopyFile(oStyle.BackGraphicUrl, SavePath) + Exit Sub + End If End If End If Next i |