Trocar item numa caixa de listagem - listBox

[RonaldoElias]

Sub TrocarItem
oDoc = ThisComponent
oControlador = oDoc.CurrentController
oForm = oDoc.Sheets.getByName(“Planilha1”).DrawPage.Forms(0)
oListBox = oForm.getByName(“Caixa de listagem 1”)
oListBoxView = oControlador.getControl(oListBox)'Caixa de Listagem

'Digamos que oLIstBox possua 3 itens (um, dois e três), e esteja selecionado o item “dois”. Como criar um código para trocar o item “dois” para o “um”, ou seja, alterando a posição do item.

End Sub

[JúnioVieira]

Bom dia, poste uma arquivo teste para melhor poder te ajudar. Caso você deseje apenas escolher outro item ja previamente carregado na listbox é só marcar nas opções do listbox a opção lista suspensa, caso deseje cadastrar um novo item ou excluir um dos item cadastrados aí sim precisa de uma macro.