Comment utiliser vba pour créer un nouveau bouton dans Powerpoint et comment créer une barre de progression après avoir cliqué dessus?

Question

J'ai du code que j'exécute quand une présentation de diaporama commence mais comme cela prend du temps, je veux créer un bouton dans une barre d'outils Powerpoint pour exécuter ce code. Donc, je clique sur le bouton et après je veux avoir une barre de progression!

Comment puis-je utiliser vba pour créer un nouveau bouton dans une barre d'outils Powerpoint et comment puis-je créer une barre de progression lorsque je clique dessus? Oh, à la fin de la barre de progression, je veux exécuter le diaporama. Comment puis-je faire ça aussi?

Merci d'avance!

Answer 1

1.

Comment puis-je utiliser pour créer vba un nouveau bouton dans une barre d'outils Powerpoint

Essayez ce code:

Sub AddButton() 
    Dim cb As CommandBar 

    Set cb = Application.CommandBars.Add("additional_toolbar", msoBarTop, , True) 

    With cb.Controls.Add(msoControlButton) 
     .Caption = "click me" 
     .OnAction = "macro_name" 
     .Style = msoButtonCaption 
    End With 
    cb.Visible = True 
End Sub 

2.

comment Je fais une barre de progression quand je cliquez dessus?

Je suggère de créer UserForm avec le contrôle ProgressBar dessus.

3.

essayer ceci pour commencer un diaporama [source]:

Sub BeginSlideShow() 
    ActivePresentation.SlideShowSettings.Run 
End Sub 

De plus:
il n'y a pas d'équivalent PERSONNEL (à partir d'Excel) dans PowerPoint, placez uniquement pour stocker le code est lui-même présentation , vous avez donc besoin d'une présentation ouverte avant d'exécuter un code.