ExcelVBA使用Shape对象的AddPicture方法制作图片产品目录 |
您所在的位置：网站首页 › excel对象不支持该属性或方法 › ExcelVBA使用Shape对象的AddPicture方法制作图片产品目录 |
ExcelVBA使用Shape对象的AddPicture方法制作图片产品目录
|
如果需要制作如图1所示的产品目录，因为所需图片的尺寸通常并非完全一致，所以除了插入图片，还需要调整图片的尺寸以适应"图片"列单元格的大小。使用VBA可以快速完成这一系列繁杂的操作，示例代码如下。 Sub InsertPictures() Dim lngRow As Long Dim objShape As Shape Dim objTargetCell As Range With Sheet1 .Shapes.SelectAll'选中工作表中的所有Shape对象 Selection.Delete'删除选中的Shape对象 If .Cells(3, 1).Value "" Then For lngRow = 3 To .Cells(3, 1).End(xlDown).Row Set objTargetCell = .Cells(lngRow, 3) .Shapes.AddPicture(ThisWorkbook.Path & "\" & _ .Cells(lngRow, 2) & ".jpg", True, True, _ objTargetCell.Left + 2, objTargetCell.Top + 2, _ objTargetCell.Width - 4, _ objTargetCell.Height - 4).Select Selection.ShapeRange.LockAspectRatio = msoFalse'取消图片的纵横比，以适应单元格大小 Next lngRow End If End With Set objTargetCell = Nothing Set objShape = Nothing End Sub图1 图片产品目录 第9行代码使用Range对象的End属性获取工作表中A列最后一个非空单元格的行号作为循环的终值。 第11行代码中使用Shape对象的AddPicture方法插入花卉图片，图片文件以花卉名称作为文件名，扩展名为JPG，保存在工作簿所在目录中。代码中的ThisWorkbook.Path返回当前工作簿所在的目录名称。 AddPicture方法从现有文件创建图片并返回代表新图片的Shape对象，其语法格式如下。 AddPicture(Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height) AddPicture方法的所有参数都是必需的。 名称必选/可选数据类型说明Filename必选String要在其中创建 OLE 对象的文件的路径和文件名。LinkToFile必选MsoTriState要链接至的文件。代表图片对象与源文件之间的关系，使图片成为其源文件的独立副本则为msoFalse，建立图片与其源文件之间的链接则为msoTrue.SaveWithDocument必选MsoTriState将图片与文档一起保存。在文档中只存储链接信息则为msoFalse，将链接图片与该图片插入的文档一起保存则为msoTrue。如果参数LinkToFile为msoFalse，则该参数必须为msoTrue。Left必选Single图片左上角相对于文档左上角的位置（以磅为单位）。Top必选Single图片左上角相对于文档顶部的位置（以磅为单位）。Width必选Single图片的宽度（以磅为单位）。Height必选Single图片的高度（以磅为单位）。
微信公众号：VBA168 淘宝店铺地址：https://item.taobao.com/item.htm?spm=a1z10.1-c-s.w4004-21233576391.4.1af0683dzrx3oU&id=584940166162 关注微信公众号，每天及时接收Excel VBA经典示例讲解。 淘宝店铺提供Excel定制服务。 祝你工作和学习更轻松！ |
【本文地址】
今日新闻 |
推荐新闻 |