Отменить разгруппировку, но оставить объекты выделенными в надстройке MS Office - PullRequest
0 голосов
/ 15 сентября 2018

Я создаю надстройку (используя Add-in Express) для добавления сочетаний клавиш для функций группировки и выравнивания фигур в PowerPoint.Я хочу использовать ту же функциональность, что и встроенные функции, но у меня возникают проблемы с воспроизведением поведения отмены групповой функции.

Обычно, если пользователь группирует несколько фигур, а затем нажимает отмену ( Ctrl + Z ), объекты будут разгруппированы и останутся выделенными.Когда я группирую фигуры, используя следующее, а затем нажимаю отмену, выделение очищается.

Private Sub ObjectGroup()
    PowerPointApp.StartNewUndoEntry()
    If PowerPointApp.ActiveWindow.Selection.Type <> 0 Then
        If PowerPointApp.ActiveWindow.Selection.ShapeRange.Count > 1 Then
            PowerPointApp.ActiveWindow.Selection.ShapeRange.Group().Select()
        End If
    End If
End Sub

Как мне воспроизвести нормальное поведение группы / отмены?Это проблема с моей функцией группировки или это будет где-то еще?

Редактировать: (решил мою проблему)

Замена

PowerPointApp.ActiveWindow.Selection.ShapeRange.Group().Select()

с

PowerPointApp.CommandBars.ExecuteMso("ObjectsGroup")

, кажется, добивается цели.Я все еще хотел бы знать, почему есть разница ...

...