Как использовать vba для создания новой кнопки в Powerpoint и как сделать индикатор выполнения после того, как я нажму на него?

Question

У меня есть код, который я выполняю, когда начинается презентация слайд-шоу, но поскольку требуется некоторое время, я хочу создать кнопку на панели инструментов Powerpoint для выполнения этого кода.

Итак, я нажимаю на кнопку, и после этого я хочу увидеть индикатор прогресса!

Как я могу использовать vba для создания новой кнопки на панели инструментов Powerpoint и как я могу сделать индикатор выполнения, когда я нажимаю на него?

О, в конце индикатора выполнения я хочу выполнить слайд-шоу. Как я могу это сделать?

Заранее благодарен!

Answer 1

1.

Как я могу использовать VBA, чтобы создать новую кнопку в Powerpoint панели

Попробуйте этот код:

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.

Я делаю индикатор выполнения, когда я нажимаю на него ?

Я бы предложил создать UserForm с элементом управления ProgressBar.

3.

попробовать это, чтобы начать слайд-шоу [source]:

Sub BeginSlideShow() 
    ActivePresentation.SlideShowSettings.Run 
End Sub 

Дополнительно:
нет эквивалента PERSONAL (из Excel) в PowerPoint, только место для хранения кода сама презентация , поэтому вам нужно открыть презентацию перед выполнением любого кода.