文章目录
前言VBA是什么?使用步骤1.新建一个xls表格2.开启宏功能3.打开宏界面4.复制粘贴代码把宏命令添加到快捷访问上总结前言
最近突然要做大量带图片的Excel表格,Office Excel每次插入表格都十分繁琐,需要手动调整,为了效率(偷懒)就想到VBA程序,然后我就开始再网上找,结果确实是实现了,插入图片自动调整大小到单元格。
可是!发给对方人家什么都看不见!!!
然后我就去找方法,经过不断寻找终于是找到了。
VBA是什么?
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。它也可说是一种应用程式视觉化的 Basic 脚本。
使用步骤
1.新建一个xls表格
为什么是xls?
因为新版Excel对有宏功能的表格要另存为xlsm,非常麻烦,有的人也可能打不开。
2.开启宏功能
点击 文件->选项->信任中心->信任中心设置->宏设置->启用VBA宏
3.打开宏界面
Alt+F11,添加模块
4.复制粘贴代码
Sub 插入图片()Dim rng, wj, i As Integerw = ActiveCell.MergeArea.Width '获取单元格宽度h = ActiveCell.MergeArea.Height '获取单元格高度l = ActiveCell.Left '获取单位格左侧位置t = ActiveCell.Top '获取单位格上侧位置With Application.FileDialog(msoFileDialogFilePicker).Title = "选择图片"If .Show Then'获取到路径wj = .SelectedItems(1)End IfEnd Withi = Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row '确定表名为 Sheet1Set rng = ActiveCell '设置位置到当前单元格ActiveSheet.Shapes.AddPicture(wj, True, True, rng.Left, rng.Top, rng.Width, rng.Height).Placement = xlMoveAndSizeEnd Sub
然后我们保存后关闭编辑窗口
把宏命令添加到快捷访问上
然后就添加到这里了,可以按Alt+3快捷键进行执行
总结
这个就是本次分享的代码了,插入图片再也不用一遍遍调整了。
如果保存有提示点是就行。