think-cell：自定義think-cell(二)

C.2 加載樣式文件

要加載樣式文件，請(qǐng)從菜單 Tools 菜單圖標(biāo)。Tools 中選擇 Load Style File...。在對(duì)話框中，導(dǎo)航到樣式文件的位置，選擇該文件，然后單擊 Open。它用于當(dāng)前演示文稿中的任何新圖表。

例如，從 think-cell 安裝目錄中的目錄加載示例樣式文件后，顏色和配色方案屬性控件將包含自定義項(xiàng)。example_style_complex.xmlstyles

如果要在現(xiàn)有圖表中應(yīng)用樣式的顏色或顏色方案，則需要手動(dòng)執(zhí)行此操作。

C.2.1 以編程方式加載樣式文件

您還可以以編程方式加載樣式文件，例如，作為準(zhǔn)備新模板或更新模板的工作流程的一部分。API 調(diào)用的更精確度還允許在加載樣式文件時(shí)指定其他選項(xiàng)，例如針對(duì)特定的自定義布局，甚至將樣式限制為自定義布局的矩形區(qū)域，以及從自定義布局中刪除它們并檢查加載到主布局或自定義布局中的樣式的名稱。

think-cell 的 API 已集成到 Office Automation 模型中，因此可以從任何可用于 Office 編程的語(yǔ)言（如 Visual Basic for Applications （VBA） 或 C#））訪問它。有關(guān)詳細(xì)說明，請(qǐng)參閱 F.1 入門。

假設(shè)您有一個(gè)自定義布局，該布局對(duì)幻燈片的左側(cè)和右側(cè)使用不同的背景顏色。右側(cè)與演示文稿其余部分的背景匹配，因此在母版中設(shè)置的樣式在此處應(yīng)用是很好的。但是，左側(cè)使用不同的背景，因此修改后的樣式是合適的。在這種情況下，您將用于為整個(gè)演示文稿設(shè)置一個(gè)樣式文件。接下來，您將用于僅為相應(yīng)自定義布局的左側(cè)設(shè)置不同的樣式。LoadStyleLoadStyleForRegion

以下部分介紹了可用的 API 調(diào)用。它們是 PowerPoint 中 think-cell 加載項(xiàng)對(duì)象的方法。

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 描述

此函數(shù)將樣式文件 at 中包含的樣式加載到主布局或自定義布局中，通過參數(shù) .FileNameCustomLayoutOrMaster

CustomLayoutOrMaster必須是 CustomLayout 或 Master。

當(dāng)應(yīng)用于已設(shè)置區(qū)域樣式的自定義布局時(shí)，區(qū)域樣式將被刪除。這意味著，在加載僅限于某個(gè)區(qū)域的樣式之前，您需要使用此函數(shù)加載應(yīng)應(yīng)用于幻燈片其余部分的樣式。

當(dāng)應(yīng)用于母版時(shí)，加載到該母版中包含的自定義布局中的任何樣式（區(qū)域和無限制）都將被刪除。這意味著，在使用此功能加載應(yīng)用于特定自定義布局的樣式之前，您需要將應(yīng)應(yīng)用于自定義布局的樣式加載到?jīng)]有特定樣式的樣式中。

C.2.2.3 示例

若要使用此示例，請(qǐng)將以下代碼添加到 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 描述

此函數(shù)將樣式文件加載到自定義布局中，并將其限制為由 、、 指定的區(qū)域。在幻燈片的其余部分，將應(yīng)用加載到母版中的樣式，或之前加載到自定義版式中的樣式。FileNameCustomLayoutLeftTopWidthHeightLoadStyle

參數(shù) 以 PowerPoint 點(diǎn)為單位給出。并分別指定區(qū)域的左邊緣和上邊緣與自定義布局的左邊緣和上邊緣的距離。通常，您會(huì)將它們?cè)O(shè)置為總幻燈片高度和寬度的分?jǐn)?shù)。例如，對(duì)于覆蓋自定義布局右三分之二的區(qū)域，您可以設(shè)置LeftTopWidthHeightLeftTop

Left = CustomLayout.Width / 3Top = 0Width = CustomLayout.Width * 2 / 3Height = CustomLayout.Height

您還可以手動(dòng)將形狀添加到幻燈片或自定義布局中，以編程方式查詢其屬性，并使用值 with 將樣式限制為形狀覆蓋的同一區(qū)域。LeftTopWidthHeightLoadStyleForRegion

think-cell 支持每個(gè)自定義布局最多兩種樣式。一個(gè)設(shè)置并涵蓋不限于某個(gè)區(qū)域的所有內(nèi)容，另一個(gè)設(shè)置有 。LoadStyleLoadStyleForRegion

C.2.3.3 示例

若要使用此示例，請(qǐng)將以下代碼添加到 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 描述

此函數(shù)從自定義布局中刪除所有樣式 。之后，將應(yīng)用加載到 master 中的樣式?？赡軙?huì)有一個(gè)樣式加載到自定義布局中，而另一個(gè)樣式僅限于自定義布局的特定區(qū)域。刪除所有樣式時(shí)，兩者都將被刪除。加載到主控件中的樣式無法刪除，因?yàn)槭冀K需要與主控件關(guān)聯(lián)的有效樣式。它可以被其他樣式文件覆蓋。CustomLayoutRemoveStyles

C.2.4.3 示例

若要使用此示例，請(qǐng)將以下代碼添加到 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 描述

此函數(shù)返回加載到 CustomLayout 或 Master 或 .此名稱與相應(yīng)樣式文件的元素屬性中指定的名稱相同（請(qǐng)參閱 D.2.1 樣式）。CustomLayoutOrMastername