Valor de uma célula em uma caixa de texto4

Boa noite!

Gostaria de saber se é possível vincular o valor resultante de uma função de uma determinada célula em uma caixa de texto ou uma forma da barra de ferramentas de desenho.

desde ja agradeço

Function ReceberCelula()'Exemplo do Formulário do Calc


		Dim oSheet as Object
		Dim oFormulario as Object
		Dim oCelulaDiretorio as Object
		Dim ctCelulaRecebe as Object
		Dim document as Object
		Dim dispatcher as Object
		Dim Valor as String
	
		oSheet 				= ThisComponent.CurrentController.ActiveSheet
		oFormulario			= oSheet.DrawPage.Forms.getByName("Formulário")'O formulário
		oCelulaDiretorio 		= oSheet.GetCellRangeByName("A1")'A célula com fórmula
		ctCelulaRecebe		 	= oFormulario.GetByName("ctCelulaRecebe")'A caixa texto
		
		document = ThisComponent.CurrentController.Frame
		dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
		Dim args1(0) as new com.sun.star.beans.PropertyValue
		args1(0).Name = "ToPoint"
		args1(0).Value = "A1"
		dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
		ctCelulaRecebe.Text = Trim(oCelulaDiretorio.String("A1"))
		
		'Obs pode rodar clicando no botão 'vincular" ou em: "Editar => Planilha => Eventos...Conteúdo Alterado (escolha a macro)

End Function

Acho que não posso, ainda, enviar arquivo.

Clicou no ícone certo:

  1. Imagens
  2. Arquivo

Descrição da imagem

Certo Gilberto não havia percebidos os ícones.

Deu muito certo!!!

@Marceloxa, comentou…

Boa tarde!!

Obrigado, agradeço ao Gilberto e ao Ronaldo. A resposta foi de muita valia!!

Ola @Marceloxa,


Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.