Bouton pour fermer fenêtre graphique

Bouton pour fermer fenêtre graphique - VB/VBA/VBS - Programmation

Marsh Posté le 18-06-2010 à 14:40:25    

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 :
  1. Set co = ChartObjects.Add(100, 140, 450, 400) 'taille graphique + position
  2. co.Chart.ChartWizard Source:=Range(Cells(13, fi + 27), Cells(23, fi + 27)) 'selection cellule source
  3. co.Chart.SeriesCollection(1).XValues = Range(Cells(13, fi + 25), Cells(23, fi + 25)) 'selection cellule source axe des abcisse
  4. co.Chart.ChartType = xlXYScatterSmoothNoMarkers 'type de graphique
  5. co.Chart.SeriesCollection.Add _
  6. Source:=Range(Cells(13, fi + 28), Cells(23, fi + 28))
  7. co.Chart.HasLegend = False
  8. co.Chart.HasTitle = True    'titre graphique
  9. co.Chart.ChartTitle.Text = Cells(13, 3).Text  'titre graphique
  10. co.Chart.Axes(xlCategory).HasTitle = True   'texte Axe abcisse
  11. co.Chart.Axes(xlCategory).AxisTitle.Text = "Cote"  'texte Axe abcisse
  12. co.Chart.Axes(xlCategory).MinimumScaleIsAuto = True
  13. co.Chart.Axes(xlCategory).MaximumScaleIsAuto = True


 
Encore Merci
 
A+

Reply

Marsh Posté le 18-06-2010 à 14:40:25   

Reply

Marsh Posté le 08-07-2010 à 16:23:53    

Aucune solutions ????

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed