je suis en train de faire une ch'tite macro qui crée des graphs à la volée
et j'ai un petit problème.
Je n'arrive pas a trouver la propriété pour changé la position et la taille
du graph.
J'ai bien top, left, height ou widht mais c'est en lecture. Je peux pas
"jouer" avec ça pour mettre le graph ou je veux.
donc j'en suis à la selection du graph et je sais plus quoi faire.....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
garnote
Salut Frank,
Essaie cet exemple : Sub Graphique_Nuage_De_Points_De_La_Sélection() Dim plage As Range Dim gr As ChartObject Dim nom As String nom = ActiveSheet.Name Set plage = Selection haut = 5 gauche = 5 hauteur = 200 largeur = 200 Set gr = ActiveSheet.ChartObjects.Add _ (gauche, haut, largeur, hauteur) With gr.Chart .ChartType = xlXYScatter .SetSourceData Source:=plage .Location Where:=xlLocationAsObject, Name:=nom End With End Sub
Serge
"Franck" a écrit dans le message de news: #
Bonjour,
je suis en train de faire une ch'tite macro qui crée des graphs à la volée et j'ai un petit problème. Je n'arrive pas a trouver la propriété pour changé la position et la taille
du graph. J'ai bien top, left, height ou widht mais c'est en lecture. Je peux pas "jouer" avec ça pour mettre le graph ou je veux. donc j'en suis à la selection du graph et je sais plus quoi faire.....
ActiveChart.ChartArea.Select . . .
qui veut bien m'aider !
Merci d'avance.
Franck
Salut Frank,
Essaie cet exemple :
Sub Graphique_Nuage_De_Points_De_La_Sélection()
Dim plage As Range
Dim gr As ChartObject
Dim nom As String
nom = ActiveSheet.Name
Set plage = Selection
haut = 5
gauche = 5
hauteur = 200
largeur = 200
Set gr = ActiveSheet.ChartObjects.Add _
(gauche, haut, largeur, hauteur)
With gr.Chart
.ChartType = xlXYScatter
.SetSourceData Source:=plage
.Location Where:=xlLocationAsObject, Name:=nom
End With
End Sub
Serge
"Franck" <franck.pruliere@reedmidem.com> a écrit dans le message de news:
#WKIfKk9DHA.1632@TK2MSFTNGP12.phx.gbl...
Bonjour,
je suis en train de faire une ch'tite macro qui crée des graphs à la volée
et j'ai un petit problème.
Je n'arrive pas a trouver la propriété pour changé la position et la
taille
du graph.
J'ai bien top, left, height ou widht mais c'est en lecture. Je peux pas
"jouer" avec ça pour mettre le graph ou je veux.
donc j'en suis à la selection du graph et je sais plus quoi faire.....
Essaie cet exemple : Sub Graphique_Nuage_De_Points_De_La_Sélection() Dim plage As Range Dim gr As ChartObject Dim nom As String nom = ActiveSheet.Name Set plage = Selection haut = 5 gauche = 5 hauteur = 200 largeur = 200 Set gr = ActiveSheet.ChartObjects.Add _ (gauche, haut, largeur, hauteur) With gr.Chart .ChartType = xlXYScatter .SetSourceData Source:=plage .Location Where:=xlLocationAsObject, Name:=nom End With End Sub
Serge
"Franck" a écrit dans le message de news: #
Bonjour,
je suis en train de faire une ch'tite macro qui crée des graphs à la volée et j'ai un petit problème. Je n'arrive pas a trouver la propriété pour changé la position et la taille
du graph. J'ai bien top, left, height ou widht mais c'est en lecture. Je peux pas "jouer" avec ça pour mettre le graph ou je veux. donc j'en suis à la selection du graph et je sais plus quoi faire.....
ActiveChart.ChartArea.Select . . .
qui veut bien m'aider !
Merci d'avance.
Franck
Franck
Merci c'est exactement ce que je voulais ! Bonne journée.
"garnote" a écrit dans le message news: hENYb.60914$
Salut Frank,
Essaie cet exemple : Sub Graphique_Nuage_De_Points_De_La_Sélection() Dim plage As Range Dim gr As ChartObject Dim nom As String nom = ActiveSheet.Name Set plage = Selection haut = 5 gauche = 5 hauteur = 200 largeur = 200 Set gr = ActiveSheet.ChartObjects.Add _ (gauche, haut, largeur, hauteur) With gr.Chart .ChartType = xlXYScatter .SetSourceData Source:=plage .Location Where:=xlLocationAsObject, Name:=nom End With End Sub
Serge
"Franck" a écrit dans le message de news: #
Bonjour,
je suis en train de faire une ch'tite macro qui crée des graphs à la volée
et j'ai un petit problème. Je n'arrive pas a trouver la propriété pour changé la position et la taille
du graph. J'ai bien top, left, height ou widht mais c'est en lecture. Je peux pas "jouer" avec ça pour mettre le graph ou je veux. donc j'en suis à la selection du graph et je sais plus quoi faire.....
ActiveChart.ChartArea.Select . . .
qui veut bien m'aider !
Merci d'avance.
Franck
Merci c'est exactement ce que je voulais !
Bonne journée.
"garnote" <rien@absent.net> a écrit dans le message news:
hENYb.60914$2g.48082@charlie.risq.qc.ca...
Salut Frank,
Essaie cet exemple :
Sub Graphique_Nuage_De_Points_De_La_Sélection()
Dim plage As Range
Dim gr As ChartObject
Dim nom As String
nom = ActiveSheet.Name
Set plage = Selection
haut = 5
gauche = 5
hauteur = 200
largeur = 200
Set gr = ActiveSheet.ChartObjects.Add _
(gauche, haut, largeur, hauteur)
With gr.Chart
.ChartType = xlXYScatter
.SetSourceData Source:=plage
.Location Where:=xlLocationAsObject, Name:=nom
End With
End Sub
Serge
"Franck" <franck.pruliere@reedmidem.com> a écrit dans le message de news:
#WKIfKk9DHA.1632@TK2MSFTNGP12.phx.gbl...
Bonjour,
je suis en train de faire une ch'tite macro qui crée des graphs à la
volée
et j'ai un petit problème.
Je n'arrive pas a trouver la propriété pour changé la position et la
taille
du graph.
J'ai bien top, left, height ou widht mais c'est en lecture. Je peux pas
"jouer" avec ça pour mettre le graph ou je veux.
donc j'en suis à la selection du graph et je sais plus quoi faire.....
Merci c'est exactement ce que je voulais ! Bonne journée.
"garnote" a écrit dans le message news: hENYb.60914$
Salut Frank,
Essaie cet exemple : Sub Graphique_Nuage_De_Points_De_La_Sélection() Dim plage As Range Dim gr As ChartObject Dim nom As String nom = ActiveSheet.Name Set plage = Selection haut = 5 gauche = 5 hauteur = 200 largeur = 200 Set gr = ActiveSheet.ChartObjects.Add _ (gauche, haut, largeur, hauteur) With gr.Chart .ChartType = xlXYScatter .SetSourceData Source:=plage .Location Where:=xlLocationAsObject, Name:=nom End With End Sub
Serge
"Franck" a écrit dans le message de news: #
Bonjour,
je suis en train de faire une ch'tite macro qui crée des graphs à la volée
et j'ai un petit problème. Je n'arrive pas a trouver la propriété pour changé la position et la taille
du graph. J'ai bien top, left, height ou widht mais c'est en lecture. Je peux pas "jouer" avec ça pour mettre le graph ou je veux. donc j'en suis à la selection du graph et je sais plus quoi faire.....
