Bonjour …Est-ce-que quelqu’un aurait un morceau de code montrant comment placer mon graphique à un endroit x , y bien précis d’une feuille*?
J’aie constaté avec ma ligne ci-dessous que mon graphique se dessinait en commençant toujours en haut à gauche de la feuille .
Or je voudrais le dessiner en partant à bas à droite de ma feuille .
Code:
Set MonGraphe = MaFeuille.ChartObjects.Add(-300, 0, 925, -300).Chart
Même en modifiant les signes des coordonnées dans Add(-300, 0, 925, -300) je ne parviens pas à dessiner mon graphique ou je le souhaite
Le bas de la feuille se situe pour moi à la ligne 65536 !
Feuille ou écran ?
Puisque x et y sont précisés, où est le pb ?
Mettre des dimensions négatives ne résoudra rien
Code:
Set MonGraphe = MaFeuille.ChartObjects.Add(x, y, largeur, hauteur).Chart
Option Explicit
Private Sub Graphe()
Dim sNomGraphe As String
Dim Emplacement As Range
Dim Graphe As ChartObject
sNomGraphe = ActiveChart.Parent.Name
Set Emplacement = ShTxt.Range("C4:N28")
Set Graphe = ShTxt.ChartObjects(sNomGraphe)
With Graphe
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
Set Graphe = Nothing
Set Emplacement = Nothing
End Sub