如何：向文档添加图片和 Word Art

项目
09/10/2008

更新：2007 年 11 月

适用对象
本主题中的信息仅适用于指定的 Visual Studio Tools for Office 项目和 Microsoft Office 版本。项目类型文档级项目应用程序级项目 Microsoft Office 版本 Word 2003 Word 2007 有关更多信息，请参见按应用程序和项目类型提供的功能。

本主题中的信息仅适用于指定的 Visual Studio Tools for Office 项目和 Microsoft Office 版本。

项目类型

文档级项目
应用程序级项目

Microsoft Office 版本

Word 2003
Word 2007

有关更多信息，请参见按应用程序和项目类型提供的功能。

可以在设计时或运行期间向文档中添加图片和图形对象。可以利用艺术字向 Microsoft Office Word 文档添加装饰性文本。这些特殊文本效果是一些图形对象，您可以自定义这些图形对象并插入到文档中。

在设计时添加图片

如果正在开发文档级自定义项，则可以在设计时向文档添加图片。对于 Word 2003 和 Word 2007，此过程有所不同。

在设计时向 Word 2003文档添加图片

将光标置于文档中要插入图片的位置。
在“插入”菜单上单击“图片”，再单击“来自文件”。
在“插入图片”对话框中，定位至要插入的图片，然后单击“插入”。

图片将被添加到文档中光标当前所在的位置。

在设计时向 Word 2007 文档添加图片

将光标置于文档中要插入图片的位置。
单击功能区的“插入”选项卡。
在“图例”组中单击“图片”。
在“插入图片”对话框中，定位至要插入的图片，然后单击“插入”。

图片将被添加到文档中光标当前所在的位置。

在运行时添加图片

可以在当前的光标位置将图片插入文档。

在光标位置添加图片

调用 InlineShapes 对象的 AddPicture 方法，并传入文件名。

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

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

在设计时添加艺术字

如果正在开发文档级自定义项，则可以在设计时向文档添加艺术字。对于 Word 2003 和 Word 2007，此过程有所不同。

在设计时向 Word 2003 文档添加艺术字

将光标置于文档中要插入艺术字的位置。
在“插入”菜单上单击“图片”，再单击“艺术字”。
在“艺术字库”对话框中选择一种“艺术字样式”，然后单击“确定”。
在“编辑‘艺术字’文字”对话框中添加要在文档中显示的文字，然后单击“确定”。

这样文字就会添加到文档中，并应用选定的艺术字样式。

在设计时向 Word 2007 文档添加艺术字

将光标置于文档中要插入艺术字的位置。
单击功能区的“插入”选项卡。
在“文本”组中单击“艺术字”，然后选择艺术字样式。
在“编辑‘艺术字’文字”对话框中添加要在文档中显示的文字，然后单击“确定”。

这样文字就会添加到文档中，并应用选定的艺术字样式。

在运行时添加艺术字

可以在当前的光标位置将艺术字插入文档。对于文档级自定义项和应用程序级外接程序，此过程有所不同。

在文档级自定义项中的光标位置处添加艺术字

获取当前光标位置的左上角的坐标。

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.get_Information(
    Word.WdInformation.wdHorizontalPositionRelativeToPage);

float topPosition = (float)this.Application.Selection.get_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, ref missing);

在应用程序级外接程序中的光标位置处添加艺术字

获取当前光标位置的左上角的坐标。

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.get_Information(
    Word.WdInformation.wdHorizontalPositionRelativeToPage);

float topPosition = (float)this.Application.Selection.get_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, ref missing);