Position d'un Graphe Croisé Dynamique via Macro

[NateD]

Bonjour à tous,

Je suis encore un débutant en VBA et j'aurai voulu savoir s'il est possible de donner une position lors de la création d'un Graphe Croisé Dynamique en tant qu'objet sur une page.
Est il également possible de modifier la taille ?

Je vous file un morceau de code et j'espere que les pro pourront m'aider à completer tout ca compléter

Sub CSI_All()
'
' NoAnswer Macro
' Macro recorded 21/05/2010 by HY7727
'
    ActiveWorkbook.Worksheets("Calcul").PivotTables("BasePivot").PivotCache. _
        CreatePivotTable TableDestination:="'[ID Sales 2009.xls]Calcul'!R76C2", _
        TableName:="CSI_All", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTables("CSI_All").NullString = "0"
    ActiveSheet.PivotTables("CSI_All").AddFields RowFields:="Q1", ColumnFields:="Survey Completed"
    ActiveSheet.PivotTables("CSI_All").PivotFields("JOBCATEG").Orientation = _
        xlDataField
    ActiveWindow.SmallScroll Down:=18
    ActiveSheet.PivotTables("CSI_All").PivotSelect "'Completely Satisfied'", xlDataAndLabel, True
    ActiveSheet.PivotTables("CSI_All").PivotFields("Q1").PivotItems( _
        "Completely Satisfied").Position = 1
    ActiveSheet.PivotTables("CSI_All").PivotSelect "'Quite satisfied'", xlDataAndLabel, True
    ActiveSheet.PivotTables("CSI_All").PivotFields("Q1").PivotItems( _
        "Quite satisfied").Position = 2
    ActiveSheet.PivotTables("CSI_All").PivotSelect "'Not very satisfied'", _
        xlDataAndLabel, True
    ActiveSheet.PivotTables("CSI_All").PivotFields("Q1").PivotItems( _
        "Not very satisfied").Position = 3
    With ActiveSheet.PivotTables("CSI_All").PivotFields("Q1")
        .PivotItems("N/A").Visible = False
    End With
    With ActiveSheet.PivotTables("CSI_All").PivotFields("Q1")
        .PivotItems("(blank)").Visible = False
    End With
    With ActiveSheet.PivotTables("CSI_All").PivotFields("Survey Completed")
        .PivotItems("No").Visible = False
    End With
    With ActiveSheet.PivotTables("CSI_All").PivotFields("Q1")
        .PivotItems("How satisfied are you today with SKF as a company to do business with?").Visible = False
    End With
    With ActiveSheet.PivotTables("CSI_All").PivotFields( _
        "Count of JOBCATEG")
        .Calculation = xlPercentOfTotal
    End With
    With ActiveSheet.PivotTables("CSI_All").PivotFields("JOBCATEG")
        .Orientation = xlPageField
        .Position = 1
    End With
    Charts.Add
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Champ"
    ActiveChart.HasPivotFields = False
End Sub
[COLOR="Red"]'Le but étant ici d'ancrer le graphe en B50 de ma feuille champ et eventuellement de pouvoir modifier sa taille[/COLOR]

Merci d'avance