XL 2010 Application.Dialogs pour graphiques

[jm.andryszak]

Bonjour
Afin de finaliser un projet, je voudrais utiliser des boîtes de dialogue pour des graphiques
mais je n'arrive pas à les paramétrer en utilisant la doc :

Listes d'arguments de boîte de dialogue intégrée

Rubrique de référence sur Office VBA

learn.microsoft.com

par exemple :
Application.Dialogs(xlDialogAxes).Show
la liste d'arguments est x_primary, y_primary, x_secondary y_secondary
Je fais des test sans succès
Application.CommandBars.ExecuteMso ne me convient pas car ne fonctionne que pour les boutons.
Si une âme pouvait me sortir de cette ornière.
Je suis en excel 2010
Merci d'avance

 

[sylvanu]

Bonjour jm.andryszak,
Je n'ai jamais utilisé cette fenêtre en VBA. Donc pas de réponse sur ce point.
Si c'est pour modifier les axes alors vous pouvez faire :

Sub Essai()
    ActiveSheet.ChartObjects("Graphique 1").Activate
    With ActiveChart.Axes(xlValue)  ' Axe Y
        .MinimumScale = 0           ' Minimum
        .MaximumScale = 10          ' Maximum
        .MajorUnit = 1              ' Unité principale
        .MinorUnit = 0.5            ' Unité secondaire
    End With
    With ActiveChart.Axes(xlCategory) ' Axe X, idem
        .MinimumScale = 0
        .MaximumScale = 20
        .MajorUnit = 5
        .MinorUnit = 1
    End With
    [A1].Select
End Sub

Si depuis, vous avez trouvé la solution, partagez là, SVP.

 

[jm.andryszak]

Bonjour
Voici une partie du projet.
J'utilise un module de classe pour les évènements des graphiques
L'objectif étant de limiter les actions d'un utilisateur sur les graphiques
Pour ce faire j'ai personnalisé le ruban avec CUSTOM UI pour ne plus faire apparaître les outils de graphique
et mis en place des menus.
Je me suis pour l'instant intéressé aux titres, légendes et zones de graphique
Les Menus se trouvent dans le module Mod_Graphiques
Merci de m'apporter si vous le souhaitais des critiques constructives