Valor de uma célula em uma caixa de texto4

[Marceloxa]

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

[RonaldoElias]

…

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

[RonaldoElias]

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

[schiavinatto]

Clicou no ícone certo:

1. Imagens
2. Arquivo

[RonaldoElias]

Certo Gilberto não havia percebidos os ícones.

[Marceloxa]

Deu muito certo!!!

[schiavinatto]

@Marceloxa, comentou…

Boa tarde!!

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

[schiavinatto]

Ola @Marceloxa,

---

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.