bam74540 | Bonjour à tous,
Je remercie d'avance ceux qui se pencheront sur mon problème.
J'ai fais une marco qui affiche un tableau lorsque l'on clique sur un Bouton.Jusque là, rien de merveilleux.Une fois que le graphique est affiché, je me demandais si il étais possible qu'un bouton "fermer" apparaisse sur le coté de la feuille "chart" pour permettre la fermeture et la fin de la visualisation du graphique.
Voici le code création du graphique.
Code :
- Set co = ChartObjects.Add(100, 140, 450, 400) 'taille graphique + position
- co.Chart.ChartWizard Source:=Range(Cells(13, fi + 27), Cells(23, fi + 27)) 'selection cellule source
- co.Chart.SeriesCollection(1).XValues = Range(Cells(13, fi + 25), Cells(23, fi + 25)) 'selection cellule source axe des abcisse
- co.Chart.ChartType = xlXYScatterSmoothNoMarkers 'type de graphique
- co.Chart.SeriesCollection.Add _
- Source:=Range(Cells(13, fi + 28), Cells(23, fi + 28))
- co.Chart.HasLegend = False
- co.Chart.HasTitle = True 'titre graphique
- co.Chart.ChartTitle.Text = Cells(13, 3).Text 'titre graphique
- co.Chart.Axes(xlCategory).HasTitle = True 'texte Axe abcisse
- co.Chart.Axes(xlCategory).AxisTitle.Text = "Cote" 'texte Axe abcisse
- co.Chart.Axes(xlCategory).MinimumScaleIsAuto = True
- co.Chart.Axes(xlCategory).MaximumScaleIsAuto = True
|
Encore Merci
A+ |
