Discussion :

[delamarque]

Bonjour,

J'ai crée un graph sous Excel en l'enregistrant avec outil \ macro

Après le création du graph je sélectionne ce dernier et je lui attribue une police de 8 avec le code suivant :

Code :

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

1
2
3
4
Nom = ActiveSheet.Shapes(3).Name
ActiveSheet.ChartObjects(Nom).Activate
ActiveSheet.ChartObjects(Nom).Select
Selection.Font.Size = 8

Lorsque je lance le code le graph se crée mais la police ne se met pas à 8.

Savez vous pourquoi ?

Merci pour vos pistes

[SilkyRoad]

bonsoir

j'espere que cet exemple pourra t'aider

Code :

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

ActiveSheet.ChartObjects("Graphique 1").Chart.ChartArea.Font.Size = 8

ou

Code :

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

1
2
Nom = ActiveSheet.Shapes(3).Name
ActiveSheet.ChartObjects(Nom).Chart.ChartArea.Font.Size = 8

bonne soiree
michel

[ouskel'n'or]

J'avais ça dans un coin pour vérifier l'index du bon nom de graphe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub TrouverLeBonGraphe()
    For Each LeGraphe In Worksheets("Tableau des absences").Shapes
        i = i + 1
        If LeGraphe.Name = "Chart 611" Then
            Lindex = i
            Exit For
        End If
        MsgBox LeGraphe.Name & " Index =  " & i
    Next
    Worksheets("Tableau des absences").Shapes(i).Select
End Sub

A toutes fin utiles

A+

[delamarque]

Salut,

en fait l'index du Graph est systématiquement le 3

Le pb vient du fait que quand on lance le code il sélectionne le graph mais il ne lui met pas la police 8

Merci pour vos idées

[bidou]

Pourtant le code de Michel fonctionne chez moi

[delamarque]

Peut être alors que cette erreur est dû à une autre erreur qui s'est propagé dans mon programme ?

[delamarque]

voici mon code :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub Graphique()
 
    Dim v As Integer
    Dim Nom
 
    Application.ScreenUpdating = False
 
     v = 2
 
While Workbooks("classeur.xls").Worksheets("Graph").Cel(v,3).Value<> ""
v = v + 1
Wend
 
    dernière_ligne = v - 1
 
    Set myarea = Workbooks("classeur.xls").Worksheets("Données Graph").Range(Cells(1, 3), Cells(dernière_ligne, 6))
 
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Données Graph").Range("C1:F26"), PlotBy:= _
        xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph"
    ActiveChart.HasDataTable = True
    ActiveChart.DataTable.ShowLegendKey = True
    ActiveSheet.Shapes(3).ScaleWidth 1.39, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes(3).ScaleWidth 1.31, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes(3).ScaleHeight 1.54, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes(3).ScaleHeight 1.15, msoFalse, _
        msoScaleFromBottomRight
    ActiveChart.Legend.Select
    Selection.Delete
    Selection.AutoScaleFont = True
 
    Nom = ActiveSheet.Shapes(3).Name
    ActiveSheet.ChartObjects(Nom).Activate
    ActiveSheet.ChartObjects(Nom).Select
    Selection.Font.Size = 8
 
    ActiveWindow.Visible = False
 
    Application.ScreenUpdating = True
 
End Sub

Merci d'avance pour vos pistes

Hello delamarque, et les balises alors ?

[ouskel'n'or]

Essaie avec ça :

Code :

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

1
2
3
4
5
6
    Nom = ActiveSheet.Shapes(3).Name
    ActiveSheet.ChartObjects(Nom).Activate
    ActiveChart.ChartArea.Select
    With Selection.Font
       .Size = 8
    End With

A+

[delamarque]

Ca marche mieux, maintenant il me met un police de 10.75 au lieu de 14 comme avant (la police demandée est 8 )