标签:End 批量 item excel Cells rng 插入 Select 图片
效果图:
使用VBA:
Sub 批量插入图片() Dim item As String '设置一个名为cfan字符串,将其作为图片路径变量 Dim rng As Range Sheets("Sheet4").Select '选中要插入图片的工作表 x = [a65536].End(xlUp).Row '取得最后一行的行号 For i = 2 To x name = Cells(i, 2) '从第2列(即B列)得到图片名称,并以此名查找指定位置的图片 cfan = "e:\Folder" & "\" & name & ".png" '指定图片实际保存位置和格式 If Dir(item) <> "" Then Cells(i, 4).Select '图片需要插入到第4列 ActiveSheet.Pictures.Insert(item).Select Set rng = Cells(i, 4) '根据单元格的大小调整图片 With Selection .Top = rng.Top + 1 .Left = rng.Left + 1 .Width = rng.Width - 1 .Height = rng.Height - 1 End With End If Next End Sub
标签:End,批量,item,excel,Cells,rng,插入,Select,图片 来源: https://www.cnblogs.com/feiyucha/p/11218556.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。