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
| Dim objChart As Chart, objRange As Range
Set objRange = Sheets("LiaisonB").Range(Sheets("LiaisonB").Range("A1"), Sheets("LiaisonB").Range("B3"))
Set objChart = Charts.Add
objChart.SetSourceData objRange, xlColumns
objChart.ChartType = xl3DColumn
'choix du style
objChart.PlotArea.Select
objChart.ClearToMatchStyle
objChart.ChartStyle = 42
'choix des informations présentes
objChart.ApplyLayout (2)
'Changement du titre
objChart.ChartTitle.Select
objChart.ChartTitle.Text = "TotalDevis"
'suppression de la légende
objChart.Legend.Select
Selection.Delete
'Création du bouton
ActiveSheet.Buttons.Add(599100, 3940142.25, 686432.25, 685935.75).Select
Selection.OnAction = "ret"
Sheets("Accueil").Select
Range("G4").Select
Sheets("Graph1").Select
ActiveChart.Shapes("Button 1").Select
Selection.Characters.Text = "Retour"
ExecuteExcel4Macro _
"FONT.PROPERTIES(""Calibri"",""Normal"",11,FALSE,FALSE,FALSE,FALSE,FALSE,1,1,,,1,8,FALSE,4,2,0,0)"
ActiveSheet.ChartObjects("Graphique 1").Activate |
Partager