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 支持和反馈，获取有关如何接收支持和提供反馈的指南。