Excel VBA教程:AddPicture方法

从原有文件中创建图片。返回一个 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 类型,必需。以磅为单位给出图片的高度。

Excel VBA教程:AddPicture方法·示例

本示例向myDocument 添加由文件“Music.bmp”创建的图片。插入的图片链接到其源文件,并与myDocument 一起保存。


Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _
    "c:\microsoft office\clipart\music.bmp", _
    True, True, 100, 100, 70, 70


上页:Excel VBA教程:AddPageItem方法 下页:Excel VBA教程:AddPolyline方法

Excel VBA教程:AddPicture方法

Excel VBA教程:AddPolyline方法 Excel VBA教程:AddReplacement方法
Excel VBA教程:AddSet方法 Excel VBA教程:AddShape方法
Excel VBA教程:AddTextbox方法 Excel VBA教程:AddTextEffect方法
Excel VBA教程:AddToFavorites方法 Excel VBA教程:AdvancedFilter方法
Excel VBA教程:Align方法 Excel VBA教程:Apply方法
Excel VBA教程:ApplyCustomType方法 Excel VBA教程:ApplyDataLabels方法
Excel VBA教程:ApplyNames方法 Excel VBA教程:ApplyOutlineStyles方法
Excel VBA教程:AreaGroups方法 Excel VBA教程:Arrange方法
Excel VBA教程:AutoComplete方法 Excel VBA教程:AutoFill方法
Excel VBA教程:AutoFilter方法 Excel VBA教程:AutoFit方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号