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

2011-08-12

可以在设计时或运行期间向文档中添加图片和图形对象。可以利用艺术字向 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);