C.2 加載樣式文件
要加載樣式文件,請從菜單 Tools 菜單圖標。Tools 中選擇 Load Style File...。在對話框中,導航到樣式文件的位置,選擇該文件,然后單擊 Open。它用于當前演示文稿中的任何新圖表。
例如,從 think-cell 安裝目錄中的目錄加載示例樣式文件后,顏色和配色方案屬性控件將包含自定義項。example_style_complex.xmlstyles
如果要在現有圖表中應用樣式的顏色或顏色方案,則需要手動執行此操作。
C.2.1 以編程方式加載樣式文件
您還可以以編程方式加載樣式文件,例如,作為準備新模板或更新模板的工作流程的一部分。API 調用的更精確度還允許在加載樣式文件時指定其他選項,例如針對特定的自定義布局,甚至將樣式限制為自定義布局的矩形區域,以及從自定義布局中刪除它們并檢查加載到主布局或自定義布局中的樣式的名稱。
think-cell 的 API 已集成到 Office Automation 模型中,因此可以從任何可用于 Office 編程的語言(如 Visual Basic for Applications (VBA) 或 C#))訪問它。有關詳細說明,請參閱 F.1 入門。
假設您有一個自定義布局,該布局對幻燈片的左側和右側使用不同的背景顏色。右側與演示文稿其余部分的背景匹配,因此在母版中設置的樣式在此處應用是很好的。但是,左側使用不同的背景,因此修改后的樣式是合適的。在這種情況下,您將用于為整個演示文稿設置一個樣式文件。接下來,您將用于僅為相應自定義布局的左側設置不同的樣式。LoadStyleLoadStyleForRegion
以下部分介紹了可用的 API 調用。它們是 PowerPoint 中 think-cell 加載項對象的方法。
C.2.2 LoadStyle
C.2.2.1 簽名
VBA
tcPpAddIn.LoadStyle( _ CustomLayoutOrMaster As Object, _ FileName As String )
C#
void tcPpAddIn.LoadStyle( object CustomLayoutOrMaster, string FileName
C.2.2.2 描述
此函數將樣式文件 at 中包含的樣式加載到主布局或自定義布局中,通過參數 .FileNameCustomLayoutOrMaster
CustomLayoutOrMaster必須是 CustomLayout 或 Master。
當應用于已設置區域樣式的自定義布局時,區域樣式將被刪除。這意味著,在加載僅限于某個區域的樣式之前,您需要使用此函數加載應應用于幻燈片其余部分的樣式。
當應用于母版時,加載到該母版中包含的自定義布局中的任何樣式(區域和無限制)都將被刪除。這意味著,在使用此功能加載應用于特定自定義布局的樣式之前,您需要將應應用于自定義布局的樣式加載到沒有特定樣式的樣式中。
C.2.2.3 示例
若要使用此示例,請將以下代碼添加到 PowerPoint 中的模塊中。
Option ExplicitSub LoadStyle_Sample() ' Get the think-cell add-in object Dim tcPpAddIn As Object Set tcPpAddIn = Application.COMAddIns("thinkcell.addin").Object Dim master As MasterSet master = Application.ActivePresentation.Designs(1).SlideMasterDim style As Stringstyle = "C:somepathstylesstyle.xml"Call tcPpAddIn.LoadStyle(master, style)End Sub
C.2.3 LoadStyleForRegion
C.2.3.1 簽名
VBA
tcPpAddIn.LoadStyleForRegion( _ CustomLayout As PowerPoint.CustomLayout, _ FileName As String, _ Left as Single, _ Top as Single, _ Width as Single, _ Height as Single _ )
C#
void tcPpAddIn.LoadStyleForRegion( PowerPoint.CustomLayout CustomLayout, string FileName, float Left, float Top, float Width, float Height );
C.2.3.2 描述
此函數將樣式文件加載到自定義布局中,并將其限制為由 、、 指定的區域。在幻燈片的其余部分,將應用加載到母版中的樣式,或之前加載到自定義版式中的樣式。FileNameCustomLayoutLeftTopWidthHeightLoadStyle
參數 以 PowerPoint 點為單位給出。并分別指定區域的左邊緣和上邊緣與自定義布局的左邊緣和上邊緣的距離。通常,您會將它們設置為總幻燈片高度和寬度的分數。例如,對于覆蓋自定義布局右三分之二的區域,您可以設置LeftTopWidthHeightLeftTop
Left = CustomLayout.Width / 3Top = 0Width = CustomLayout.Width * 2 / 3Height = CustomLayout.Height
您還可以手動將形狀添加到幻燈片或自定義布局中,以編程方式查詢其屬性,并使用值 with 將樣式限制為形狀覆蓋的同一區域。LeftTopWidthHeightLoadStyleForRegion
think-cell 支持每個自定義布局最多兩種樣式。一個設置并涵蓋不限于某個區域的所有內容,另一個設置有 。LoadStyleLoadStyleForRegion
C.2.3.3 示例
若要使用此示例,請將以下代碼添加到 PowerPoint 中的模塊中
Option Explicit Sub LoadStyleForRegion_Sample() ' Get the think-cell add-in object Dim tcPpAddIn As Object Set tcPpAddIn = Application.COMAddIns("thinkcell.addin").Object Dim layout As CustomLayout Set layout = Application.ActivePresentation.Designs(1).SlideMaster.CustomLayouts(2) ' Define a region covering the left half of the custom layout Dim left, top, width, height As Single left = 0 top = 0 width = layout.Width / 2 height = layout.Height Dim style As String style = "C:somepathstylesstyle.xml" Call tcPpAddIn.LoadStyleForRegion(layout, style, left, top, width, height) End Sub
C.2.4 刪除樣式
C.2.4.1 簽名
tcPpAddIn.RemoveStyles( _ CustomLayout As PowerPoint.CustomLayout _ )
C#
void tcPpAddIn.RemoveStyles( PowerPoint.CustomLayout CustomLayout );
C.2.4.2 描述
此函數從自定義布局中刪除所有樣式 。之后,將應用加載到 master 中的樣式。可能會有一個樣式加載到自定義布局中,而另一個樣式僅限于自定義布局的特定區域。刪除所有樣式時,兩者都將被刪除。加載到主控件中的樣式無法刪除,因為始終需要與主控件關聯的有效樣式。它可以被其他樣式文件覆蓋。CustomLayoutRemoveStyles
C.2.4.3 示例
若要使用此示例,請將以下代碼添加到 PowerPoint 中的模塊中
Option ExplicitSub RemoveStyles_Sample() ' Get the think-cell add-in object Dim tcPpAddIn As Object Set tcPpAddIn = Application.COMAddIns("thinkcell.addin").Object Dim layout As CustomLayoutSet layout = Application.ActivePresentation.Designs(1).SlideMaster.CustomLayouts(2)Call tcPpAddIn.RemoveStyles(layout)End Sub
C.2.5 GetStyleName
在 think-cell 13 及更高版本中受支持。
C.2.5.1 簽名
VBA
tcPpAddIn.GetStyleName( _ CustomLayoutOrMaster As Object _ ) As String
C#
string tcPpAddIn.GetStyleName( object CustomLayoutOrMaster );
C.2.5.2 描述
此函數返回加載到 CustomLayout 或 Master 或 .此名稱與相應樣式文件的元素屬性中指定的名稱相同(請參閱 D.2.1 樣式)。CustomLayoutOrMastername
當沒有樣式加載到 .請注意,當 think-cell 處于活動狀態時,主控始終會加載樣式,并且樣式的名稱不能為空。CustomLayoutOrMaster
如果為 返回名稱,則它是使用 C.2.2 LoadStyle 加載到其中的樣式的名稱,而不是使用 C.2.3 LoadStyleForRegion(如果有)加載的樣式的名稱。CustomLayout
C.2.5.3 示例
若要使用此示例,請將以下代碼添加到 PowerPoint 中的模塊中
Option ExplicitSub GetStyleName_Sample() ' Get the think-cell add-in object Dim tcPpAddIn As Object Set tcPpAddIn = Application.COMAddIns("thinkcell.addin").Object ' Get the Master of the first slide of the current presentation Dim master As Master Set master = Application.ActivePresentation.Slides(1).Master ' Print the name of the style loaded to the debug console Dim name As String name = tcPpAddIn.GetStyleName(master) Debug.Print nameEnd Sub
-
編程
+關注
關注
88文章
3627瀏覽量
93809 -
Think
+關注
關注
0文章
8瀏覽量
7781
原文標題:think-cell:自定義 think-cell(二)
文章出處:【微信號:哲想軟件,微信公眾號:哲想軟件】歡迎添加關注!文章轉載請注明出處。
發布評論請先 登錄
相關推薦
評論