カスタムスタイル

Question

を作成するテキストの書式を設定するためにパワーポイント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（Wordでは、[ホーム]タブに表示されます）のオプションが表示されません。

Answer 1

Wordにはスタイル機能があります。 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