Graphique dans un worksheet

Graphique dans un worksheet - VB/VBA/VBS - Programmation

Marsh Posté le 05-09-2005 à 12:33:06    

Bonjour tout le monde,
 
Je génère un graphique dans une feuille par charts.add .
Or cette methode me créer une nouvelle feuille charts, alors que je voudrais que le graphique apparaisse dans une feuille, existe il une methode du genre worksheet(1).charts.add
 
Merci d'avance.


Message édité par thefreretock le 05-09-2005 à 12:35:37
Reply

Marsh Posté le 05-09-2005 à 12:33:06   

Reply

Marsh Posté le 10-09-2005 à 13:15:45    

Tout simplement dans l'aide tu trouves :
 
Cet exemple montre comment ajouter un titre au premier graphique incorporé dans la feuille Sheet1.
 
With Worksheets("Sheet1" ).ChartObjects(1).Chart
    .HasTitle = True
    .ChartTitle.Text = "1995 Rainfall Totals by Month"
End With
 

Reply

Marsh Posté le 10-09-2005 à 13:26:04    

Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Feuil1" ).Range("A11:E13" ), PlotBy _
        :=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    ActiveSheet.Shapes("Graphique 1" ).IncrementLeft 327.75
    ActiveSheet.Shapes("Graphique 1" ).IncrementTop -15#
With Worksheets("feuil1" ).ChartObjects(1).Chart
    .HasTitle = True
    .ChartTitle.Text = "1995 Rainfall Totals by Month"
End With

Reply

Marsh Posté le 10-09-2005 à 13:27:36    

Voilà ça te mets le graphique sur la Feille que tu souhaites...
 
( 5 minutes avec l'aide d'excel et pour tester ! )
 
@+

Reply

Marsh Posté le 16-09-2005 à 10:31:56    

Peut on choisir l'emplacement et la taille du graphique ?
 
Comment peut on copier un graphique d'un autre classeur excel vers le classeur en cours d'utilisation ?

Reply

Marsh Posté le 16-09-2005 à 10:39:55    

réponse à deejoh
1. oui
2. copier coller
 
 
 
 
Je sais ça énerve mais j'ai de l'humour ce matin

Reply

Marsh Posté le 16-09-2005 à 11:01:51    

et quelle humour...
 
Quelque chose de plus constructif peut être ?

Reply

Marsh Posté le 16-09-2005 à 16:22:06    

J'ai utilisé ces propriétés là une fois y a longtemps
 
ActiveChart.PlotArea.Select
Selection.ShapeRange.IncrementLeft 470
Selection.Top = 30
Selection.Width = 174
Selection.Height = 174
Selection.Left = 135
 
Pour le copier coller essaie d'enregistrer une macro, je ne retrouve plus mon exemple.

Reply

Marsh Posté le 16-09-2005 à 16:23:42    

C'était tout de même drôle et à voir ta réponse c'est encore plus drôle
:) :) :) :)

Reply

Marsh Posté le 19-09-2005 à 16:00:31    

bah je dois pas être le premier à te faire ce genre de remarque :P Fais pas l'innocent lol

Reply

Marsh Posté le 19-09-2005 à 16:00:31   

Reply

Marsh Posté le 25-11-2005 à 14:49:24    

en parlant de graphique dans une feuille, comment réaliser automatiquement la confimation de la suppression d'une feuille (un code). Car lors de la suppression d'une feuille il apparaît une fenêtre.  
 
Merci d'avance

Reply

Sujets relatifs:

Leave a Replay

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