Comment Grossir police du texte des boutons de segment de Tableur

Bonjour

J'ai créer un tableur avec des segments

Comme il y a beaucoup d'informations je suis obligé de dézoomer le tableur, mais je n'arrive plus à lire le texte des boutons du segment

je n'arrive pas à changer la taille du texte (pas des boutons, seulement de la police de texte)

Quelqu'un aurais t-il la solution pour ce problème tout bête?

Bonjour

Créer un style de segment et appliquer une taille de police + grande mais il y a des limites car cela n'augmente pas l'espace entre items et enlève donc de la lisibilité

Bonjour Brunosito13, 78chris,

Pour cela utiliser la propriété RowHeight du segment. Voire aussi le nombre de colonnes à afficher du segment (moins si le zoom est petit, plus si zoom à 100%=

Exemple ci-dessous avec un ajustement automatique selon deux zooms choisis: le 100% ou le 75% dans la cellule C1.

Contrôle de l'évènement.

Private Sub Worksheet_Change(ByVal Target As Range)
'Modification du zoom par la valeur de la cellule C1
If Target.Address = "$C$1" Then ChangeZoom
End Sub

Appel de la macro de changement du zoom et modification de la hauteur de ligne (Hlig) du slicer nommé Questions

Sub ChangeZoom()
'Selon valeur du zoom tapé en C1, soit 100, soit 75
If [C1] = 75 Then ActiveWindow.Zoom = 75: Hlig = 70 Else ActiveWindow.Zoom = 100: Hlig = 20
'Cible le segment nommé Questions
ActiveWorkbook.SlicerCaches("Segment_QUESTIONS").Slicers("QUESTIONS").RowHeight = Hlig
End Sub