全部显示从原有文件中创建图片。返回一个 Shape 对象，该对象代表新图片。
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression 必需。该表达式返回“应用于”列表中的对象之一。
FileName String 类型，必需。要创建的 OLE 对象的源文件。
LinkToFile MsoTriState 类型，必需。要链接至的文件。
| MsoTriState 可为以下 MsoTriState 常量之一。 |
| msoCTrue |
| msoFalse 使图片成为其源文件的独立副本。 |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue 建立图片与其源文件之间的链接。 |
SaveWithDocument MsoTriState 类型，必需。将图片与文档一起保存。
| MsoTriState 可为以下 MsoTriState 常量之一。 |
| msoCTrue |
| msoFalse 在文档中只保存链接信息。 |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue 将链接图片与该图片插入的文档一起保存。如果 LinkToFile 为 msoFalse，则该参数必须为 msoTrue。 |
Left Single 类型，必需。相对于文档的左上角，以磅为单位给出图片左上角的位置。
Top Single 类型，必需。相对于文档的顶部，以磅为单位给出图片左上角的位置。
Width Single 类型，必需。以磅为单位给出图片的宽度。
Height Single 类型，必需。以磅为单位给出图片的高度。
本示例向 myDocument 添加由文件“Music.bmp”创建的图片。插入的图片链接到其源文件，并与 myDocument 一起保存。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _
"c:\microsoft office\clipart\music.bmp", _
True, True, 100, 100, 70, 70