Shapes.AddPicture 方法 (Publisher)

  • 项目

将表示图片的新 Shape 对象添加到指定的 Shapes 集合。

语法

表达式。AddPicture (FileName、 LinkToFile、 SaveWithDocument、 Left、 Top、 Width、 Height)

expression：一个表示 Shapes 对象的变量。

参数

名称 必需/可选 数据类型 说明
FileName 必需 String 要在形状中插入的图片文件的名称。 可以是绝对路径或相对路径。
LinkToFile 必需 MsoTriState 确定图片是链接到出版物还是嵌入到出版物。
SaveWithDocument 必需 MsoTriState 确定是否将图片与出版物一起保存为单独的文件。
Left 必需 Variant 代表图片的形状的左边缘的位置。
Top 必需 Variant 代表图片的形状的上边缘的位置。
Width 可选 Variant 代表图片的形状的宽度。 默认值是 -1，表示形状的宽度会根据对象的数据自动设置。
Height 可选 Variant 代表图片的形状的高度。 默认值为 -1，这意味着形状的高度将根据对象的数据自动设置。

返回值

Shape

说明

如果 SaveWithDocument 参数是 msoTrue，Microsoft Publisher 会将 FileName 参数指定的图片文件的新副本保存在出版物所在的目录中。

LinkToFile 和 SaveWithDocument 参数不能具有相同的值，否则会发生错误。 如果任一参数为 msoTrue ，则其他必须为 msoFalse 。

对于 Left、 Top、 Width 和 Height 参数，数值以 磅为单位计算：字符串可以位于 Publisher (支持的任何单元中，例如“2.5 in”) 。

LinkToFile 参数可以是 Microsoft Office 类型库中声明的 MsoTriState 常量之一，如下表所示。

常量 说明
msoFalse 将图片嵌入到出版物中。
msoTrue 将图片链接到出版物。

示例

以下示例将基于现有文件的图片添加到当前出版物：出版物中的图片链接到原始文件的副本。 请注意， PathToFile 必须将 替换为有效的文件路径才能使此示例正常工作。

Dim shpPicture As Shape 
 
Set shpPicture = ActiveDocument.Pages(1).Shapes.AddPicture _ 
 (FileName:="PathToFile", _ 
 LinkToFile:=msoTrue, _ 
 SaveWithDocument:=msoFalse 
 Left:=72, Top:=72)

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。