HOW TO：將圖片及文字藝術師加入至文件

發行項
08/12/2011

您可以在設計階段或執行階段，將圖片和繪圖物件加入至您的文件。文字藝術師可讓您將裝飾文字加入至 Microsoft Office Word 文件。這些特殊文字效果是繪圖物件，您可自訂並將它們插入文件。

**適用於：**本主題中的資訊適用於 Word 2007 和 Word 2010 的文件層級專案和應用程式層級專案。如需詳細資訊，請參閱依 Office 應用程式和專案類型提供的功能。

在設計階段加入圖片

如果您正在開發文件層級自訂，可以在設計階段將圖片加入至文件。

若要在設計階段將圖片加入至 Word 文件

請將游標置於想要在文件中插入圖片的位置。
按一下功能區的 [插入] 索引標籤。
按一下 [插圖] 群組中的 [圖片]。
在 [插入圖片] 對話方塊中，巡覽至想要插入的圖片，並按一下 [插入]。

即會在文件中目前的游標位置加入圖片。

在執行階段加入圖片

您可以將圖片插入至文件中目前游標的位置。

若要在游標位置加入圖片

呼叫 InlineShapes 集合的 AddPicture 方法，並傳入檔案的名稱。

Me.Application.Selection.InlineShapes.AddPicture("C:\SamplePicture.jpg")

this.Application.Selection.InlineShapes.AddPicture(@"C:\SamplePicture.jpg");

在設計階段加入文字藝術師

如果您正在開發文件層級自訂，可以在設計階段將文字藝術師加入至文件。

若要在設計階段將文字藝術師加入至 Word 文件

請將游標置於想要在文件中插入文字藝術師的位置。
按一下功能區的 [插入] 索引標籤。
按一下 [文字] 群組中的 [文字藝術師]，然後選取文字藝術師樣式。
將想要在文件中顯示的文字加入至 [編輯文字藝術師的文字] 對話方塊，並按一下 [確定]。

加入至文件的文字即會套用選取的文字藝術師樣式。

在執行階段加入文字藝術師

您可以將文字藝術師插入至文件中目前游標的位置。文件層級自訂與應用程式層級增益集的程序不同。

若要在文件層級自訂的游標位置加入文字藝術師

取得目前游標位置的左端和頂端位置。

Dim leftPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdHorizontalPositionRelativeToPage)

Dim topPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdVerticalPositionRelativeToPage)

float leftPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdHorizontalPositionRelativeToPage];

float topPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdVerticalPositionRelativeToPage];

呼叫文件中 Shapes 物件的 AddTextEffect 方法。

Me.Shapes.AddTextEffect( _
    Office.MsoPresetTextEffect.msoTextEffect29, "SampleText", _
    "Arial Black", 24, _
    Office.MsoTriState.msoFalse, Office.MsoTriState.msoFalse, _
    leftPosition, topPosition)

this.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect29, "SampleText",
    "Arial Black", 24, Office.MsoTriState.msoFalse, Office.MsoTriState.msoFalse,
    leftPosition, topPosition);

若要在應用程式層級增益集的游標位置加入文字藝術師

取得目前游標位置的左端和頂端位置。

Dim leftPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdHorizontalPositionRelativeToPage)

Dim topPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdVerticalPositionRelativeToPage)

float leftPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdHorizontalPositionRelativeToPage];

float topPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdVerticalPositionRelativeToPage];

呼叫使用中文件 (或您所指定的不同文件) 之 Shapes 物件的 AddTextEffect 方法。

Me.Application.ActiveDocument.Shapes.AddTextEffect( _
    Office.MsoPresetTextEffect.msoTextEffect29, "SampleText", _
    "Arial Black", 24, Office.MsoTriState.msoFalse, _
    Office.MsoTriState.msoFalse, leftPosition, topPosition)

this.Application.ActiveDocument.Shapes.AddTextEffect(
    Office.MsoPresetTextEffect.msoTextEffect29, "SampleText",
    "Arial Black", 24, Office.MsoTriState.msoFalse, 
    Office.MsoTriState.msoFalse, leftPosition, topPosition);