[XL-2007] Création Commandbutton dans graphique

Création Commandbutton dans graphique

Coucou,

J'ai une macro qui réalise un graphique.
Je souhaite ajouter un bouton sur ce graphique me permettant de quitter le graphique pour revenir à la page d'accueil.
J'ai réalisé un code à l'aide de l'enregistreur de macro mais un message d'erreur s'affiche lors de l'éxécution de cette ligne :

Code:

1
2
ExecuteExcel4Macro _
        "FONT.PROPERTIES(""Calibri"",""Normal"",11,FALSE,FALSE,FALSE,FALSE,FALSE,1,1,,,1,8,FALSE,4,2,0,0)"

Erreur '1004': Vous avez tapé un nombre trop impotant d'arguments pour cette fonction

Voila le 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
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

Si quelqu'un a une idée d'où vient mon erreur et comment la corriger j'en serais ravie ;)

Bonjour,

Je ne sais pas ce que tu veux faire avec cette macro Excel4 qui ne puisse être fait avec VBA, mais il y a effectivement trop de paramètres. Voila la syntaxe :

Code:

FONT.PROPERTIES(font, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, normal, background, start_char, char_count)

En fait je crois que mon code ne dois pas corresponde à ce que je souhaite car aucun bouton n'apparait :/

Je souhaite ajouter un bouton sur mon graphique me permettant de revenir à la page précédente

Code:

1
2
    Set Btn = ActiveSheet.Buttons.Add(72.5, 72, 72, 72.25)
    Btn.OnAction = "test"

Merci beaucoup ça fonctionne :ccool: