[Résolu] Un zoom par feuille ?

[Jeff]

Bonsoir à toutes et tous

Peut-on sous calc,affecter un zoom par feuille ?

Je developpe : j'ai une feuille avec de nombreuse données.Pour la voir dans sa globalité,le zoom est réglé faible.
J'ai ensuite une feuille qui me sert de récapitulatif (avec donc beaucoup moins de données) à laquelle je voudrai affecter un zoom plus important.
J'ajoute que je "navigue" beaucoup d'une feuille à l'autre,le réglage du zoom devenant à mon goût trop fréquent.

Malgré mes recherches dans l'aide et sur le forum,je n'ai pas trouver ni réponses,ni même trace de cette question.

Cette possibilité est-elle...possible ?

[Tilou]

Bonjour !

J'ai également ce problème avec des plannings contenant une liste de noms qui ne permet pas une bonne exploitation avec un affichage pleine page.

Alors j'utilise la combinaison de touche CTRL + Roulette de la souris.

C'est un moyen rapide qui permet de régler le zoom à sa convenance.

Bonne journée.

[Jeff]

Finalement j'ai trouvé la solution qui me convient le mieux : j'ai adapté la largeur et la hauteur de mes lignes,c'est indépendant de l'autre feuille,visuellement le même résultat que ce que je cherchais.

Merci pour ta réponse !

[Pierre-Yves Samyn]

Bonjour

Je ne pense pas que ce soit possible "en standard" dans la mesure où la propriété "zoom" est une propriété "currentController" (en gros fenêtre) du document.

Cela dit c'est réalisable par macro.
Dans le fil http://user.services.openoffice.org/fr/ ... tener.html
j'indiquais comment on pouvait lancer une macro lors d'un changement de feuille. L'exemple donné se limitait à afficher le nom de la feuille sélectionnée. Il suffit à la place d'appeler une procédure recevant le nom de la feuille et modifier le facteur de zoom en fonction de ce nom.

Le code devient donc (par exemple) :

Code : Tout sélectionner

Option Explicit

Global PysDocView as object, PysListener as object

sub PysListenerAdd

PysDocView = ThisComponent.getCurrentController
PysListener = createUnoListener("Pys_","com.sun.star.sheet.XActivationEventListener")
PysDocView.addActivationEventListener(PysListener)

end sub

sub PysListenerRemove
   PysDocView.removeActivationEventListener(PysListener)
end sub

sub Pys_disposing(PysListener)
end sub

Sub Pys_activeSpreadsheetChanged(PysListener)
   PysZoom(PysDocView.ActiveSheet.Name)
End Sub


sub PysZoom(PysName)
dim PysValeur as integer
select case PysName
	case "Bilan"
		PysValeur=40
	case "1ère Période"
		PysValeur=200
	case else
		PysValeur=100
end select

with thiscomponent.currentController
	.zoomValue = PysValeur
	.zoomType = com.sun.star.view.DocumentZoomType.BY_VALUE
end with

end sub

Le fil indiqué ci-dessus donne les informations complémentaires