以程式設計方式將圖片及文字藝術師新增至文件
本文內容
您可以在設計階段或執行階段,將圖片和繪圖物件加入至您的文件。 文字藝術師可讓您將裝飾文字加入至 Microsoft Office Word 文件。 這些特殊文字效果是繪圖物件,您可自訂並將它們插入至文件。
適用對象: 本主題資訊適用於文件層級的專案和 Word 的 VSTO 增益集專案。 如需詳細資訊,請參閱依 Office 應用程式和專案類型提供的功能 。
在設計階段新增圖片
如果您正在開發文件層級自訂,可以在設計階段將圖片加入至文件。
在設計階段將圖片加入至 Word 文件
請將游標置於想要在文件中插入圖片的位置。
按一下功能區的插入 索引標籤。
在插圖 群組中,按一下圖片 。
在插入圖片 對話方塊中,導覽至要插入的圖片,然後按一下插入 。
圖片隨即加入文件中目前的游標位置。
在執行階段新增圖片
您可以將圖片插入文件中目前游標的位置。
在游標位置加入圖片
呼叫 InlineShapes 集合的 AddPicture 方法,並傳入檔案的名稱。
this.Application.Selection.InlineShapes.AddPicture(@"C:\SamplePicture.jpg");
Me.Application.Selection.InlineShapes.AddPicture("C:\SamplePicture.jpg")
在設計階段新增文字藝術師
如果您正在開發文件層級自訂,可以在設計階段將文字藝術師加入至文件。
在設計階段將文字藝術師加入至 Word 文件
請將游標置於想要在文件中插入文字藝術師的位置。
按一下功能區的插入 索引標籤。
在文字 群組中,按一下文字藝術師 ,然後選擇文字藝術師樣式。
將要在文件中顯示的文字新增至編輯文字藝術師文字 對話方塊中,然後按一下確定 。
加入至文件的文字即會套用選取的文字藝術師樣式。
在執行階段新增文字藝術師
您可以將文字藝術師插入至文件中目前游標的位置。 文件層級自訂與 VSTO 增益集的程序不同。
在文件層級自訂的游標位置加入文字藝術師
取得目前游標位置的左端和頂端位置。
float leftPosition = (float)this.Application.Selection.Information[
Word.WdInformation.wdHorizontalPositionRelativeToPage];
float topPosition = (float)this.Application.Selection.Information[
Word.WdInformation.wdVerticalPositionRelativeToPage];
Dim leftPosition As Double = Me.Application.Selection.Information( _
Word.WdInformation.wdHorizontalPositionRelativeToPage)
Dim topPosition As Double = Me.Application.Selection.Information( _
Word.WdInformation.wdVerticalPositionRelativeToPage)
請呼叫文件中 Shapes 物件的 AddTextEffect 方法。
this.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect29, "SampleText",
"Arial Black", 24, Office.MsoTriState.msoFalse, Office.MsoTriState.msoFalse,
leftPosition, topPosition);
Me.Shapes.AddTextEffect( _
Office.MsoPresetTextEffect.msoTextEffect29, "SampleText", _
"Arial Black", 24, _
Office.MsoTriState.msoFalse, Office.MsoTriState.msoFalse, _
leftPosition, topPosition)
在 VSTO 增益集的游標位置加入文字藝術師
取得目前游標位置的左端和頂端位置。
float leftPosition = (float)this.Application.Selection.Information[
Word.WdInformation.wdHorizontalPositionRelativeToPage];
float topPosition = (float)this.Application.Selection.Information[
Word.WdInformation.wdVerticalPositionRelativeToPage];
Dim leftPosition As Double = Me.Application.Selection.Information( _
Word.WdInformation.wdHorizontalPositionRelativeToPage)
Dim topPosition As Double = Me.Application.Selection.Information( _
Word.WdInformation.wdVerticalPositionRelativeToPage)
請呼叫使用中文件 (或您所指定的不同文件) 之 Shapes 物件的 AddTextEffect 方法。
this.Application.ActiveDocument.Shapes.AddTextEffect(
Office.MsoPresetTextEffect.msoTextEffect29, "SampleText",
"Arial Black", 24, Office.MsoTriState.msoFalse,
Office.MsoTriState.msoFalse, leftPosition, topPosition);
Me.Application.ActiveDocument.Shapes.AddTextEffect( _
Office.MsoPresetTextEffect.msoTextEffect29, "SampleText", _
"Arial Black", 24, Office.MsoTriState.msoFalse, _
Office.MsoTriState.msoFalse, leftPosition, topPosition)
編譯程式碼
名為 SamplePicture.jpg 的 的圖片必須存在於磁碟機 C 上。
相關內容