Création ruban VBA

Signaler
Messages postés
28
Date d'inscription
lundi 2 février 2009
Statut
Membre
Dernière intervention
16 septembre 2013
-
Bonjour,

j'avais dans ppt2003 une macro qui créait une barre d'outils qui fonctionnait très bien. En passant sous ppt2010, cette macro fonctionne toujours mais les logos sont tout petits dans les rubans.

Peut-on par codage VBA soit modifier la taille des logos, soit (serait le mieux pour moi) créer un ruban avec mes boutons.
Mon code de création de barre d'outils est le suivant :

Sub barreoutil_MEF_cercle()

On Error Resume Next
    Application.CommandBars("Cercle").Delete
  On Error GoTo 0

Set newBar = CommandBars.Add(Name:="Cercle", _
     Position:=msoBarTop, Temporary:=False)

Set con = newBar.Controls.Add(msoControlButton)

With con
    .Caption = "Initialisation des données"
    .FaceId = 2897
    .OnAction = "lancer"
End With
    
Set nomform = newBar.Controls.Add(msoControlButton)
With nomform
    .Caption = "Menu"
    .FaceId = 3820
    .OnAction = "aaamenu"
End With
    
Set Donnees = newBar.Controls.Add(msoControlButton)
With Donnees
    .Caption = "Données sources"
    .FaceId = 1987
    .OnAction = "donnees_sources"
End With
    
Set nomform = newBar.Controls.Add(msoControlButton)
With nomform
    .Caption = "Nom d'une forme"
    .FaceId = 487
    .OnAction = "nomformeslide"
End With

Set nomform = newBar.Controls.Add(msoControlButton)
With nomform
    .Caption = "Distance"
    .FaceId = 179
    .OnAction = "UFdist"
End With

Set nomform = newBar.Controls.Add(msoControlButton)
With nomform
    .Caption = "Surface"
    .FaceId = 1648
    .OnAction = "UFsurf"
End With

newBar.Visible = True

End Sub


Et pour finir, a-t-on la possibilité sur ppt2010 (je sais que c'est possible sur excel) de lancer la macro de création de barre d'outils à l'ouverture du fichier ?

merci d'avance pour vos réponses

Ced

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.