Emplacement graphique VBA

Version imprimable

10/07/2008, 16h31
grenival

Emplacement graphique VBA
Bonjour à tous,

J'ai réaliser une macro qui génère un graphique à partir d'un TCD.
Pour placer mon graphique à l'endroit désiré j'ai cette formule
Code:

1 2 ActiveSheet.ChartObjects(1).Left = Range("D8").Left ActiveSheet.ChartObjects(1).Top = Range("D8").Top
J'ai un autre TCD en dessous avec un graphique du même genre. J'ai donc le même code que pour le premier sauf qu'à la place de "D8" j'ai "D35"

Quand j'active ma première macro pas de problème mon graphique se met bien en D8, par contre dés que j'active le 2ème il chevauche le 1er.

J'ai donc pensé à les nommer et remplacer le (1) par le nom du graphique mais ca ne marche pas.

Quelqu'un voit -il de quoi il pourrait s'agir?
Merci
10/07/2008, 17h16
J.Michel
J'imagine que dans la 2° procédure tu utilises
Code:

1 2 3 ActiveSheet.ChartObjects(2).Left = Range("D35").Left ActiveSheet.ChartObjects(2).Top = Range("D35").Top
Quand tu dis qu'il chevauche le 1°: il se mets en D8 également ?

Peux tu nous montrer tes 2 procédures ?
10/07/2008, 20h35
grenival
[Oui voila c'est exactement ca

1ère procedure :
Code:

1 2 ActiveSheet.ChartObjects(1).Left = Range("D8").Left ActiveSheet.ChartObjects(1).Top = Range("D8").Top
2ème procedure :
Code:

1 2 ActiveSheet.ChartObjects(2).Left = Range ("D35").Left ActiveSheet.ChartObjects(2).Top = Range("D35").Top
Quand je réalise la 2ème procédure le graphique se chevauche sur l'autre mais en décalé il n'est même pas en "D8" C'est ca que je trouve bizarre.

J'ai essayé de nommer chacun de mes graph après Chart.add et mettre le nom attribué à la place du (1) et même chose pour le 2ème à la place du (2) Mais celà ne marche pas non plus

Merci pour ton aide

Salut, à adapter

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Option Explicit
 
.....
Dim Emplacement As Range
Dim Graphe As ChartObject
Dim sNomGraphe As String
 
    .....
    sNomGraphe = ActiveChart.Parent.Name
    Set Emplacement = ShDatas.Range("C4:P40")
    Set Graphe = ShDatas.ChartObjects(sNomGraphe)
 
    With Graphe
        .Left = Emplacement.Left
        .Top = Emplacement.Top
        .Height = Emplacement.Height
        .Width = Emplacement.Width
    End With
 
    Set Graphe = Nothing
    Set Emplacement = Nothing
    .....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
' ********************************************************
' Fonction permettant de placer un graphique dans une page
' ********************************************************
Public Function Placer_Graphique(graphe As String, origine As Range, fin As Range)
 
    Dim x_origine As Single
    Dim y_origine As Single
 
    Dim largeur_graphe As Single
    Dim hauteur_graphe As Single
 
    x_origine = origine.Left
    y_origine = origine.Top
 
    largeur_graphe = fin.Left + fin.Width - x_origine
    hauteur_graphe = fin.Top + fin.Height - y_origine
 
    With ActiveSheet.Shapes(graphe)
        .Left = x_origine
        .Top = y_origine
        .Width = largeur_graphe
        .Height = hauteur_graphe
    End With
 
End Function

Placer_Graphique monChart.Parent.Name, Range("B2"), Range("I20")