Affecter un graphique dans une cellule

Bonjour,

Je souhaiterai pouvoir à partir de données générer un graphique dans une cellule du tableau en ne faisant pas de sparkline.

Sub position()
Dim xRg As Range
Dim xChart As ChartObject
Dim i As Integer
Set xRg = Range("D" & i + 1)
Set xChart = ActiveSheet.ChartObjects(1)
With xChart
.Top = xRg(1).Top
.Left = xRg(1).Left
.Width = xRg.Width
.Height = xRg.Height
End With

End Sub

Merci d'avance

Rechercher des sujets similaires à "affecter graphique"