Paramétrages d'un graphique incorporé

Fermé
ibll1 Messages postés 8 Date d'inscription dimanche 20 septembre 2009 Statut Membre Dernière intervention 21 septembre 2009 - 21 sept. 2009 à 15:05
Bonjour,
j'ai créé un graphique à l'aide d'une macro mais plusieurs petites choses "bloquent".
voiçi ma macro de création:

Sub GraphiqueIncorporé()
'
' GraphiqueIncorporé Macro

Dim vGraphique As Chart
Dim vPlage As Range
Set vPlage = Worksheets("basket").Range("AH9:AM13")
Set vGraphique = ThisWorkbook.Charts.Add
With vGraphique
.SetSourceData Source:=vPlage, PlotBy:=xlRows
.ChartType = xl3DColumnClustered
.HasTitle = True
.ChartTitle.Text = "Profils joueurs"
.Location xlLocationAsObject, Name:="basket"

End With

End Sub


là tout ce passe bien, le graphique apparait au centre la ma page, mais je voudrais le redimensionner pour qu'il apparaisse plus grand.

comment puis-je faire ?

j'ai essayé cela, mais il y a un pb
Sub Ajuster_Graphique()
'
' Ajuster_Graphique Macro
'
Dim Graphique6 As ChartObject

On Error Resume Next
Set Graphique6 = ActiveSheet
.ChartObjects ("Graphique6") pb içi, ça bloque ?????
On Error GoTo 0

If Graphique6 Is Nothing Then Exit Sub

With Graphique6
.Top = Range("H5").Top
.Left = Range("H5").Left
.Height = Range("D4:O17").Left
.Width = Range("D4:O17").Width
End With


End Sub

un petit coup de main ne serais pas du luxe ! merci d'avance