diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-11-06 16:19:36 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-11-06 16:19:36 +0000 |
| commit | e04218b93c8d5897aa3c64b496a4801780e013d6 (patch) | |
| tree | 9d83f1d48fbd80be72079e0376696ac8067d01ff | |
| parent | f55ff791be6dc399cf5ec5107f468252302b78fe (diff) | |
#94334# Now preselected range is checked for supported services
| -rw-r--r-- | wizards/source/euro/ConvertRun.xba | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/wizards/source/euro/ConvertRun.xba b/wizards/source/euro/ConvertRun.xba index d917343d1..aeaab396f 100644 --- a/wizards/source/euro/ConvertRun.xba +++ b/wizards/source/euro/ConvertRun.xba @@ -232,8 +232,11 @@ Dim oLocRange as Object oSelRanges = oDocument.createInstance("com.sun.star.sheet.SheetCellRanges") ' Check if a Currency-Range has been selected oLocRange = oDocument.CurrentController.Selection - oSelRanges.InsertbyName("",oLocRange) - AddSelectedRangeToSelRangesEnum() = oLocRange + bPreSelected = oLocRange.SupportsService("com.sun.star.sheet.SheetCellRange") + If bPreSelected Then + oSelRanges.InsertbyName("",oLocRange) + AddSelectedRangeToSelRangesEnum() = oLocRange + End If End Function @@ -243,7 +246,7 @@ Dim OldCurrSymbolList(2) as String Dim OldCurrIndex as Integer Dim OldCurExtension(2) as String oPreSelRange = AddSelectedRangeToSelRangesEnum() - bPreSelected = True + DialogModel.chkComplete.State = Abs(Not(bPreSelected)) If bPreSelected Then DialogModel.optSelRange.State = 1 AddRangeToListbox(oPreSelRange) @@ -252,7 +255,6 @@ Dim OldCurExtension(2) as String CreateStyleEnumeration() End If EnableStep1DialogControls(True, bPreSelected, True) - DialogModel.chkComplete.State = Abs(Not(bPreSelected)) DialogModel.optSelRange.Enabled = bPreSelected End Sub |