Добавление дополнительной строки в личную надстройку PowerPoint

Question

Я создал собственный PowerIn AddIn, который состоит из панели инструментов с несколькими msoControlButtons, которые выполняют макрос при нажатии.Поскольку я продолжаю добавлять больше кнопок, они добавляются горизонтально (см. Изображение).Я бы хотел, чтобы кнопки помещались во второй ряд, например, кнопка F находится ниже кнопки A.

Dim oToolbar As CommandBar
Dim oButton As CommandBarButton
Dim MyToolbar As String

MyToolbar = "Kewl Tools"

On Error Resume Next   
Set oToolbar = CommandBars.Add(Name:=MyToolbar, _
    Position:=msoBarFloating, Temporary:=True)
If Err.Number <> 0 Then  
      Exit Sub
End If

On Error GoTo ErrorHandler
Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)

With oButton

     .DescriptionText = ""   
     .Caption = "Do Button1 Stuff"    
     .OnAction = "Button1"  
     .Style = msoButtonIcon    
     .FaceId = 52       
End With

Панель инструментов Изображение

Answer 1

Прошло много времени с тех пор, как я делал чистые панели команд VBA, и это может быть не точно , что вы хотите, но это довольно близко.

Сначала создайте msoControlPopupкоторый будет содержать ваши кнопки:

Dim ButtonGroup as CommandBarPopup
Set ButtonGroup = oToolBar.Controls.Add(Type:=msoControlPopup)
ButtonGroup.BeginGroup = True
With ButtonGroup.Controls
    'Button 1:
    Set oButton = .Add(Type:=msoControlButton)
    With oButton
         .DescriptionText = ""   
         .Caption = "Do Button1 Stuff"    
         .OnAction = "Button1"  
         .Style = msoButtonIcon    
         .FaceId = 52       
    End With

    'Button 2:
    Set oButton = .Add(Type:=msoControlButton)
    With oButton
         .DescriptionText = ""   
         .Caption = "This is Button 2!"    
         .OnAction = "Button2"  
         .Style = msoButtonIcon    
         .FaceId = 99       
    End With

    ' repeat adding buttons as needed

End With

Пример: Каждый из данных / сиг.Тестирование / Графики - это элемент CommandBarPopup, и каждый из них содержит последовательность CommandBarButtons, реализованную способом, описанным выше.Пример иллюстрирует тот же подход из Excel, но он должен работать точно так же в PowerPoint.