Positionner un graphique

CB60

XLDnaute Barbatruc

• 7 Juillet 2008

• #2

Re : Positionner un graphique

Bonjour
Une façon de faire

Code:

With ActiveSheet.shapes("Nom de ton graphique")
.Left = Range("A10").Left
.Top = Range("A10").Top
End With

Pour nommée ton graph tu peux t'inspirer de cela

Code:

Sub NomGraph()
Dim i As Integer
'nommé X graphique
With ActiveSheet
For i = 1 To .ChartObjects.Count
.ChartObjects(i).Name = "Graph_" & i
Next i
End With
End Sub

si tu ne veux pas nommée ton graphique et que tu en a qu'un sur la feuille tu peux faire cela :

Code:

With ActiveSheet.shapes([COLOR=red][B]1[/B][/COLOR])
.Left = Range("A10").Left
.Top = Range("A10").Top
End With

 

Dernière édition: 7 Juillet 2008

Vote positif 0 Vote négatif

S

spitfire378

XLDnaute Occasionnel

• 7 Juillet 2008

• #3

Re : Positionner un graphique

C'est super je te remercie

 

Vote positif 0 Vote négatif

S

spitfire378

XLDnaute Occasionnel

• 7 Juillet 2008

• #4

Re : Positionner un graphique

Par contre je ne suis pas sur de comprendre la fonction pour renommer les graphiques. Est-ce que cette fonction renomme tous mes graphs?

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 7 Juillet 2008

• #5

Re : Positionner un graphique

re
Pour nommer les graphiques la macro compte le nombre de graphique sur la feuille et les nommes "graph ( n1 à nX)"

 

Vote positif 0 Vote négatif

S

spitfire378

XLDnaute Occasionnel

• 7 Juillet 2008

• #6

Re : Positionner un graphique

En faite je vais décrire mon probleme final ca va etre plus simple, j'ai créé une macro qui récupère des données d'une Feuil2 d'un classeur et qui créé un graphique de ces données sur une Feuil3. Seulement les graphiques créés sont tous positionnées au centre les uns sur les autres. Ce que je recherche a faire c'est ordonner proprement ces graphiques. Le premier en B2, le second en B22 etc...et ce sur un nombre indéfini de graphiques. Mais la je suis dépassé. Merci beaucoup pour votre aide et votre patience.

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 7 Juillet 2008

• #7

Re : Positionner un graphique

re
J'ai vue une macro de John Walkenbach, qui réalisé le positionnement de tous les graphiques l'un sous l'autre, je pense que je dois l'avoir à la maison.
Si tu n'a pas de réponse avant ce soir je rechercherais

 

Vote positif 0 Vote négatif

S

spitfire378

XLDnaute Occasionnel

• 7 Juillet 2008

• #8

Re : Positionner un graphique

C'est tres gentil de ta part, et ca n'est pas pressé. Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Juillet 2008

• #9

Re : Positionner un graphique

Bonjour Spitfire, Bruno

peut être comme ceci, si j'ai bien compris :

Code:

Sub test()
Dim c As ChartObject, c1 As ChartObject
With Sheets("Feuil1")
For Each c In .ChartObjects
    If c.Index = 1 Then
        c.Top = .Range("B2").Top
        c.Left = .Range("B2").Left
    Else
        Set c1 = .ChartObjects(c.Index - 1)
        c.Top = c1.BottomRightCell.Offset(2, 0).Top
        c.Left = c1.Left
    End If
Next c
End With
End Sub

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 7 Juillet 2008

• #10

Re : Positionner un graphique

Re
Je viens de tester la Procédure de Pierrot et elle fonctionne très bien, donc pas d'autre besoin me semble t'il?

 

Vote positif 0 Vote négatif

S

spitfire378

XLDnaute Occasionnel

• 8 Juillet 2008

• #11

Re : Positionner un graphique

Je viens de tester la formule dans mon code seulement lorsque je lance la macro ca efface mes graphiques et ca me créé des traits verticaux a partir de la cellule B2 par contre

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Juillet 2008

• #12

Re : Positionner un graphique

bonjour Spitfire, Bruno

comprends pas pourquoi les graphiques seraient effacés... tu as adapté le nom de la feuille ? Sinon mets un petit fichier en pièce jointe, sans données confidentielles, avec code complet utilisé, plus facile pour t'aider...

bon après midi
@+

 

Vote positif 0 Vote négatif

S

spitfire378

XLDnaute Occasionnel

• 8 Juillet 2008

• #13

Re : Positionner un graphique

haaaaaa sisi ca marche seulement comme j'ai lancé ma macro deja une bonne centaine de fois, et que ca me génére a chaque fois des nouveaux graphiques, j'en étais a mon graphique 250 et donc ils étaients tous alignés mais tout tout tout en bas de ma feuille, alors ma question comment faire pour réinitialiser a chaque fois la valeur de l'index de mes graphiques. Merci 🙂

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Juillet 2008

• #14

Re : Positionner un graphique

Re

comprends toujours pas, car 1er graph doit se placer sur la cellule B2, et les autres à la suite, tu n'aurais pas des graphiques ayant une largeur nul sur ta feuille ?

A priori si tu lances ma macro après la création des graphiques, ils doivent tous bien se positionner.

Fais peut être l'essai sur une nouvelle feuille... Sans fichier exemple et sans le code utilisé, difficile de t'en dire plus...

@+

 

Vote positif 0 Vote négatif

S

spitfire378

XLDnaute Occasionnel

• 9 Juillet 2008

• #15

Re : Positionner un graphique

Et bien en faite le premier graph dans mon cas possède l'index 250, comme j'ai relancé 36 fois ma macro. C'est pourquoi réinitialiser la valeur de l'index de mes graphiques serait la solution. J'ai essayé un : "set chartobject.index = 1" mais ca n'a pas marché.

 

Vote positif 0 Vote négatif