Alterar combobox por programação?

[Caio]

Como faço para alterar o valor de uma combobox via programação?

[JDias]

Olá.
Você conseguiu resolver esse problema?
Eu também estou precisando saber como fazer isso.
Não parece ser muito fácil, pois o post é antigo e não teve respostas.

Att.

[RonaldoElias]

.

Function InserirServico()
    
               Dim oSheet, oFormulario, ccServico as Object
    	   Dim ListEntries() as String
    	   Dim NextItemIndex as Integer
    
                    'Formulário no Calc
    
    		oSheet 		= ThisComponent.CurrentController.ActiveSheet
    		oFormulario	= oSheet.DrawPage.Forms.getByName("Formulário")
    		ccServico	        = oFormulario.GetByName("ccServico") 'O combobox
    
    	   With ccServico
    			ListEntries 	        = .StringItemList
    			NextItemIndex% 	= UBound(ListEntries) + 1 ' UBound(ListEntries) - 1 (excluir)
    			Redim Preserve ListEntries(NextItemIndex)
    			ListEntries(NextItemIndex) = ccServico.Text
    			If (ccServico.Text = "" or ccServico.Text = "Conclusão de Processo" or ccServico.Text = "Outros") Then
    			Exit Function
    			Else
    			iMensagemBox = MsgBox("Deseja inserir o serviço na lista de seleção",4+32+256,"Inserir Serviço")
    				If (iMensagemBox = 6) Then
    					.StringItemList = ListEntries()
    				Else
    				End if
    			End if
    	   End with
    	
    End Function