Ajustar tela zoom conforme uma area prédefinida

[schiavinatto]

Problema: um arquivo tem diversas planilhas, que são utilizadas em maquinas com monitores diferentes (configuração da tela), toda a navegação entre as telas é feito via acionamento de Macro.

Existe alguma maneira de ao ir para uma planilha e sabendo o tamanho em uso ( exemplo: Planilha1.a1:a45 ), ter um comando de zoom para deixar esta área 100% visível ( não a planilha ), ou seja, deixar a largura sempre no máximo possível e visível, pode ser zoom para diminuir ou aumentar.

Lembro que a anos e anos atrás o Lotus123 tinha algo parecido, tipo AutoZoom, era definido a área visivel e quando navegasse ate ele se auto ajustava.

[Conras]

@schiavinatto, procurei imensamente algo assim para o Libre, mas não encontrei essa resposta. O que achei foi macros que, ao vc criar uma lista de possíveis máquinas com suas medidas wide, ele ajustava o zoom. Muito improdutivo.

[schiavinatto]

Ok @Conras, agradeço a atenção Vou continuar procurando…

Seria muito útil.

[WBastos]

Encontrei uma maneira não muito convencional, mas acho que atende.
Está com algumas gordurinhas, mas funciona.
A macro basicamente seleciona o range e aplica o “zoom ideal” que, no caso é o ZoomType “5”, pelo menos foi o que entendi.

Sub ZoomMenu()
	Dim oDoc As Object
	Dim oCC As Object
	oDoc = ThisComponent
	oCC = oDoc.getCurrentController()

	Call AbaMenu 

	oCC.ZoomType = 5
	oCC.ZoomValue = oCC.ZoomValue
	
	ThisComponent.CurrentController.select(ThisComponent _
	.Sheets.getByName ( "Menu" ).getCellRangeByName ( "C2" ))
End Sub

'---------------------------------------------------------------- 
Sub AbaMenu()
	ThisComponent.CurrentController.select(ThisComponent _
	.Sheets.getByName ( "Menu" ).getCellRangeByName ( "B1:H23" ))
End Sub

Segue PlanilhaExemplo

[schiavinatto]

Ola @WBastos, valeu a dica. só dei uma compactada …

Sub ZoomMenu()
	    GoToCel "Plan1.A1:J3"
    ThisComponent.getCurrentController().ZoomType = 5
		GoToCel "C2"
End Sub

Sub GoToCel ( xLocal$ )
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint" : args1(0).Value = xLocal
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController _
.Frame, ".uno:GoToCell", "", 0, args1())
End Sub