Bonjour à tous je sais pas ce qui se passe mais je crois que je beug...
je souhaite changer la taille de la police de plusieurs graph que je crée en VBA dans une feuille.
Je me suis aidé de l'enregistreur de macro et je suis arrivé à celace code est dans une boucle j'ai environ 5 graphiques produit et ben figuré vous que les polices ne sont pas changées ! elles sont à 10.5 au lieu de 8 je comprends absolument rien, si quelqu'un a déja rencontré ce problème je suis preneur, merci de votre aide
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 'Création graphique Dim gGraphique As ChartObject Application.ScreenUpdating = False Set gGraphique = Worksheets(sNomFeuille).ChartObjects.Add(100, 100, 100, 100) gGraphique.Chart.ChartType = xlColumnClustered gGraphique.Chart.SetSourceData source:=Sheets(sNomFeuille).range(sDebutRange & ":" & sFinRange), PlotBy:= _ xlRows gGraphique.Chart.Location Where:=xlLocationAsObject, Name:=sNomFeuille gGraphique.Left = Worksheets(sNomFeuille).Columns(iColDebutPlage).Left gGraphique.Top = Worksheets(sNomFeuille).Rows(iLigneFinPlage + 2).Top gGraphique.Width = range(sDebutRange & ":" & sFinRange).Width gGraphique.Height = 130 gGraphique.Chart.Axes(xlCategory).TickLabels.Font.Name = "Arial" gGraphique.Chart.Axes(xlCategory).TickLabels.Font.Size = 8 DoEvents gGraphique.Chart.Axes(xlValue).TickLabels.Font.Name = "Arial" gGraphique.Chart.Axes(xlValue).TickLabels.Font.Size = 8 DoEvents gGraphique.Chart.Legend.Font.Name = "Arial" gGraphique.Chart.Legend.Font.Size = 8 DoEvents
petite remarque quand je me position en mode debug sur les lignes de codes qui changent les polices et quej e fais F8 a chaque fois ça marche
Partager