創建自定義樣式

有沒有辦法在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中他們出現在主頁選項卡上）。

來源

2012-01-23 dragonfly

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

來源

2012-01-23 15:24:27

謝謝。有沒有辦法在PowerPoint幻燈片中訪問所選文本或活動段落等內容？還有如何將樣式（如粗體，縮進等）應用於該文本？ – dragonfly

創建自定義樣式

回答

相關問題