Excel中如何快速导入对应图片_CSS学习

当前位置：网站建设 > 技术支持

资料来源：网络整理时间：2023/3/4 6:19:03 共计：3609 浏览

Excel中如何快速导入对应图片？

第一步，创建需要导入图片的所有名称的Excel 文件，并保存到图片所在文件夹；

第二步，按Excel文件中要导入的名称命名对应的图片名称；

第三步，将下图代码考录到Excel的Visual Basic编辑器的模块中；添加模块流程：开发工具→Visual Basic→插入→模块；

Sub 导入配图()

Dim cell As Range '声明单元格变量

Dim hang As Long '声明数量型变量

Dim rul As String '声明字符串变量

hang = Application.CountA(ActiveSheet.Range("A:A")) 'A列总行数，列号可根据实际需要修改

rul = ThisWorkbook.Path & "\" 'Excel与图片所在文件夹路径

For Each cell In ActiveSheet.Range("a2:a" & hang) '对活动工作表名称列所有单无格进行循环

cell.Offset(0, 1).Select '选定导入单格

On Error Resume Next '出现找不到图片文件错误后继续运行程序

ActiveSheet.Pictures.Insert(rul & cell.Value & ".jpg").Select

'根据名称导入入对应的jpg格式图片

Selection.ShapeRange.LockAspectRatio = msoFalse '取消图片大小锁定纵横比

Selection.ShapeRange.Height = cell.Offset(0, 1).Height '设定图片高度等于导入单元格的高度

Selection.ShapeRange.Width = cell.Offset(0, 1).Width '设定图片宽度等于导入单元格的宽度

Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(255, 255, 255) '图片背景设为透明

Next cell

End Sub

第四步，执行宏流程：开发工具→宏→导入配图→执行；

第五步，结果，一键执行宏后，所有名称快速导入对应图片，并对齐单元格大小尺寸。

谢谢您的阅读！我是#Excel财务VBA#，懂会计的程序员，Excel&VBA精通。上面回答如果对您有帮助，或需要更多自动化财务表单原创模板下载，请记得点赞、分享、关注我的头条号“Excel财务VBA”哦！

版权说明：
本网站凡注明“广州京杭原创”的皆为本站原创文章，如需转载请注明出处！
本网转载皆注明出处，遵循行业规范，如发现作品内容版权或其它问题的，请与我们联系处理！
欢迎扫描右侧微信二维码与我们联系。