【VBA】如何制作图⽚产品⽬录
如果需要制作如图 6.6所⽰的产品⽬录，因为所需图⽚的尺⼨通常并⾮完全⼀致，因此除了插⼊图⽚，还需要调整图⽚的尺⼨以适应“图⽚”列单元格的⼤⼩，使⽤VBA可以快速完成这⼀系列繁琐的操作，⽰例代码如下。
图 6.61 图⽚产品⽬录
源码下载链接:
提取码: duia
代码解析：
•第6⾏和第7⾏代码选中⼯作表中的所有Shape对象并删除。
•第8⾏代码判断A3单元格是否有内容，如果A3是空单元格说明“产品⽬录”尚未录⼊相关产品信息，本过程将结束运⾏。
•第9⾏到第13⾏代码使⽤For…Next循环结构逐个插⼊所需花卉图⽚。
•第9⾏代码使⽤Range对象的End属性获取⼯作表中A列最后⼀个⾮空单元格的⾏号作为循环的终值，也就是产品⽬录中最后⼀条产品记录所在⾏的⾏号。
•第11⾏代码中使⽤Shape对象的AddPicture⽅法插⼊花卉图⽚，图⽚⽂件以花卉名称为⽂件名，扩展名为JPG，保存在⼯作簿所在⽬录中。代码中的ThisWorkbook.Path返回当前⼯作簿所在的⽬录名称。
•AddPicture⽅法从现有⽂件创建图⽚并返回代表新图⽚的Shape对象，其语法格式如下。
•Expression.AddPicture(Filename,LinkToFile,SaveWithDocument,Left,Top,Width,Height)
•AddPicture⽅法的所有参数都是必需的。
图片下载站源码•Filename参数为Sting类型，⽤来指定要创建的图⽚⽂件的路径和⽂件名。
•Left和Top参数为Single类型，代表图⽚左上⾓相对于⽂档左上⾓的⽔平和垂直坐标（以磅为单位）。
•Width和Height参数为Single类型，代表图⽚的宽度和⾼度（以磅为单位）。
•LinkToFile参数代表图⽚对象和其源⽂件之间的关系，使图⽚成为其源⽂件的独⽴副本则为msoFalse，建⽴图⽚与其源⽂件之间的链接则为msoTrue。
•SaveWithDocument参数代表图⽚对象的保存⽅式，在⽂档中只存储链接信息则为msoFalse，将链接图⽚与该图⽚插⼊的⽂档⼀起保存则为msoTrue。如果LinkToFile参数为msoFalse，则该参数必须为msoTrue。
•第12⾏代码取消图⽚的锁定纵横⽐，以便于适应单元格⼤⼩。Shape对象的LockAspectRatio属性⽤来返回或设置调整形状⼤⼩时其纵横⽐是否可以改变，调整⼤⼩时其原始⽐例不变则为True；如果形状的⾼度和宽度可以分别更改，则为False。
•第16⾏和第17⾏代码释放对象变量所占⽤的系统资源。
•运⾏InsertPictures过程，在⼯作表的“图⽚”列将插⼊花卉图⽚，并⾃动调整图⽚的尺⼨以适应单元格⼤⼩，如图 6.6所⽰。
由北京⼤学出版社出版、ExcelHome精⼼打造的《Excel VBA 经典代码应⽤⼤全》⼀书，内容侧重于Excel VBA 的经典⽤法及其代码讲解，旨在帮助Excel VBA 初学者和具备⼀定VBA 应⽤基础希望进阶学习的⼴⼤读者。全书精选了⼤量经典实例，辅以深⼊浅出的代码讲解剖析，⼒求让更多希望深⼊学习Excel VBA 的读者能够有更⼤的收获。
复制这段描述
￥CMe2bIyMHwh￥
后打开⼿机淘宝即可购买本书

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。