Discussion :

[NicolasC91]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 =)

[mercatog]

Bonjour et bienvenue au forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NicolasC91]

Merci beaucoup =)

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

Bonne soirée