[VBA-E]Sélectionner un graph sous Excel

Version imprimable

10/04/2006, 16h25
delamarque

[VBA-E]Sélectionner un graph sous Excel
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:

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
10/04/2006, 18h05
SilkyRoad
bonsoir

j'espere que cet exemple pourra t'aider

Code:

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

ou
Code:

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

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

Code:

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+

11/04/2006, 10h41
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
11/04/2006, 10h46
bidou

Pourtant le code de Michel fonctionne chez moi
11/04/2006, 10h49
delamarque

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

voici mon code :

Code:

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 ?

Essaie avec ça :

Code:

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+

12/04/2006, 14h54
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 :cry: )