Agrandir Un Graphique

Version imprimable

Bonjour à tous,

Je sais que ce sujet a été abordé pas mal de fois. Cependant, malgré avoir lu beaucoup de posts, je n'ai toujours pas résolu mon problème !

J'ai ce bout de code qui me permet d'afficher un graphique avec un range de données.

J'aimerais agrandir ce graphique.. mais je n'y arrive pas :/
Par exemple doubler la taille du graphique et le positionner quelque part sur la feuille
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Test() Sheets(4).Activate ActiveSheet.Shapes.AddChart.Select With ActiveChart .HasTitle = True .ChartTitle.Text = MyTitle .SetSourceData Source:= MyRange .ChartType = xlLine End With End Sub
Merci beaucoup =)

Bonjour et bienvenue au forum

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim Ch As Shape
Dim MyRange As Range
Dim MyTitle As String
 
Set MyRange = Range("B1:C20")
MyTitle = "Titre exemple"
 
Set Ch = ActiveSheet.Shapes.AddChart
With Ch
    .Width = 500
    .Height = 300
    .Left = 50
    .Top = 100
    With .Chart
        .HasTitle = True
        .ChartTitle.Text = MyTitle
        .SetSourceData Source:=MyRange
        .ChartType = xlLine
    End With
End With
Set MyRange = Nothing
Set Ch = Nothing

30/11/2010, 18h56
NicolasC91

Merci beaucoup =)

C'est exactement ce qu'il me fallait =)

Bonne soirée