Создание пользовательских стилей

Question

Есть ли способ для создания стилей в PowerPoint VSTO для форматирования текста, что-то подобное тому, что можно с документом Word:

// document is of type Microsoft.Office.Interop.Word.Document 
Style sectionHeadingExt = document.Styles.Add("myStyle"); 
sectionHeadingExt.set_BaseStyle(SectionHeadingInt); 
sectionHeadingExt.Font.Size = 14; 
sectionHeadingExt.Font.Color = WdColor.wdColorBlack; 
sectionHeadingExt.Font.Bold = (int)MsoTriState.msoFalse; 
sectionHeadingExt.ParagraphFormat.LineSpacingRule = WdLineSpacing.wdLineSpaceMultiple; 
sectionHeadingExt.ParagraphFormat.LineSpacing = _application.LinesToPoints((float)1.11); 
sectionHeadingExt.ParagraphFormat.SpaceBefore = 0; 
sectionHeadingExt.ParagraphFormat.SpaceAfter = 0; 

Мне нужно создать вкладку пользовательских ленты, добавить кнопку там и когда эта кнопка нажата мне нужно отформатировать выбранный пункт соответственно:

GetCurrentParagraph().set_Style("myStyle"); 

Я сделал это в Word, надстройке, но это возможно с PowerPoint? Также я не вижу Стили/Смена стилей в PowerPoint (в Word они отображаются на вкладке «Главная»).

Answer 1

Слово имеет функцию стилей; PowerPoint не делает этого, так что это невозможно сделать так же, как в Word.

Возможно, вам понадобится написать код для поиска и хранения различных атрибутов, которые определяют, как выглядит часть текста (имя шрифта, размер, полужирный/курсив, межстрочный интервал, интервал между абзацами, цвет и т. Д.) И код применить сохраненные атрибуты к другому фрагменту текста.

(и повторный комментарий) ... Да.

Dim oRng As TextRange 

' Is text selected? If so, work with it, else quit: 

With ActiveWindow.Selection 
If .Type = ppSelectionText Then 
    Set oRng = .TextRange 
Else 
    Exit Sub 
End If 
End With ' Selection 

With oRng 
    With .Font 
     .Bold = True 
     .Size = 24 ' point 
     ' and so on 
    End With 
End With ' oRng