杏宇娱乐

6.3 AddPicture方法

Shapes.AddPicture方法可以在指定的位置插入图片。我们先看一下它的语法结构：

AddPicture(FileName、链接到文件、随文档保存、Left、Top、Width、Height)

FileName：图片的路径及名字（带扩展名）

链接到文件、随文档保存：两个参数都填True或1，图片可以保存在工作簿中

Left、Top、Width、Height：图片的左边缘、顶部、宽度、高度

平时在程序里我们都是这样写的：

ActiveSheet.Shapes.AddPicture 文件路径及名字, 1, 1, 左, 顶, 宽, 高

比如我们想在“a1”单元格插入一张图片，这个图片位于“F:\VBA学习\Nature”目录下，名字是“img1.jpg”，我们就可以这样做：

Sub 插入图片()

地址 = 'F:\VBA学习\Nature\img1.jpg'

左 = [a1].Left

顶 = [a1].Top

宽 = [a1].Width

高 = [a1].Height

ActiveSheet.Shapes.AddPicture 地址, 1, 1, 左, 顶, 宽, 高

End Sub

首先获取要插入图片的路径及带扩展名的名字，把它赋值给“地址”变量。然后获取“a1”单元格的左、顶、宽、高，最后用AddPicture方法插入图片。效果如下：

图片

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。