Excel使用VBA自动调整插入图片大小到单元格

---

前言

最近突然要做大量带图片的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 Integer
w = 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 If
    End With
   
    i = Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row '确定表名为 Sheet1
    Set rng = ActiveCell '设置位置到当前单元格
    ActiveSheet.Shapes.AddPicture(wj, True, True, rng.Left, rng.Top, rng.Width, rng.Height).Placement = xlMoveAndSize
    
End Sub

然后我们保存后关闭编辑窗口

把宏命令添加到快捷访问上

然后就添加到这里了，可以按Alt+3快捷键进行执行

---

总结

这个就是本次分享的代码了，插入图片再也不用一遍遍调整了。
如果保存有提示点是就行。