Question sur des histogrammes par vba excel

Bonjour,

Je souhaite redimensionner la taille de la fenêtre contenant mes histogrammes en fonction du "nombre de barres" par vba. Je n'ai pas trouvé comment faire après de multiples recherches.

Je ne souhaite pas mettre de nom aux séries sur mon histogramme.
Même en positionnant le code ci-dessous, un carré précisant la série s'affiche

Code:

---

1 2 3

With .SeriesCollection(1) .name = "" End With

---

Il s'agit de l'histogramme "Taux de service fournisseur" présent en haut à droite de la feuille "Cotation" du classeur ci-joint.

A adapter

Code:

---

1 2 3 4 5 6 7

Sub EnleveAxeEtLegend()   With Feuil1.ChartObjects("Graphique 12").Chart 'Adapter avec le nom de l'objet graphique .Axes(xlCategory).Delete .HasLegend = False End With End Sub

---