[Solved] Code to increase ComboBox ListEntrySource?

[ken johnson]

I'm trying to extend a combobox's ListEntrySource by one more row.

Code: Select all

ThisComponent.Sheets.GetByName("On-Site Job Form").DrawPage.GetByIndex(17).Control.ListEntrySource.CellRange.EndRow

returns 90.
Unfortunately when I try

Code: Select all

ThisComponent.Sheets.GetByName("On-Site Job Form").DrawPage.GetByIndex(17).Control.ListEntrySource.CellRange.EndRow=91

nothing changes, it seems to be read-only.
How can I add an extra row to the combobox's ListEntrySource?

Ken Johnson

[Villeroy]

How can I add an extra row to the combobox's ListEntrySource?

Insert new cells.

[Villeroy]

How can I add an extra row to the combobox's ListEntrySource?

Insert new cells.

I think anything is better than this one:

Code: Select all

addr = createUnoStruct("com.sun.star.table.CellRangeAddress")
addr.EndRow=11
dim initParam(0) as new com.sun.star.beans.NamedValue
initParam(0).Name="CellRange"
initParam(0).value = addr
oCellRangeListSource=ThisComponent.createInstanceWithArguments("com.sun.star.table.CellRangeListSource", initParam )
With ThisComponent.DrawPages(0).Forms(0).getByName("Combo Box 1")
	.setListEntrySource(oCellRangeListSource)
End With

[ken johnson]

Insert new cells.

Great solution Villeroy, thank you very much!

Ken Johnson