以编程方式向文档添加图片和艺术字
本文内容
可以在设计时或运行时向文档中添加图片和图形对象。 可使用“艺术字”向 Microsoft Office Word 文档添加装饰性文本。 这些特殊文本效果是一些图形对象,你可以自定义这些图形对象并插入到文档中。
适用于: 本主题中的信息适用于 Word 的文档级项目和 VSTO 外接程序项目。 有关详细信息,请参阅办公室应用程序和项目类型 提供的功能。
在设计时添加图片
如果正在开发文档级自定义项,则可以在设计时向文档中添加图片。
在设计时向 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)
编译代码
驱动器 C 上必须存在名为 SamplePicture.jpg 的图片。
相关内容