前言

最近突然要做大量带图片的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 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快捷键进行执行

总结

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

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

Excel使用VBA合并单列、多列单元格
Excel使用VBA合并单列.多列单元格多列合并相同内容单元格合并相同单元格的功能如下同,让相同内容的单元格合并为一个. 具体代码如下: Sub 相同内容合并单元格() ' ' '' Dim i, ...
easypoi利用模板导出图片到Excel；解决easypoi导出图片到合并单元格单元格被拉伸的问题
easypoi的封装是非常好的,用起来很简单. 官方教程地址:http://easypoi.mydoc.io/ 但是在使用模板导出图片到合并单元格时出问题了,官网找了好几遍没找到方案. 其实官方早就实 ...
Excel 2010 VBA 入门 038 按颜色查找单元格
目录示例: 实现代码: 单元格对象的Clear方法动态表示数据区域单元格对象的Copy方法示例代码2.0 单元格对象的选择性粘贴(PasteSpecial)方法参数Paste表示选择性粘贴的 ...
Excel批量调整图片大小适应单元格且整齐排列
如下图所示,图片大小不一样,位置不一样,如何快速的把这些图片调整为指定大小,调整到指定单元格,统一整齐排列呢 (方方格子插件) 1.首先呢我们先选择其中一个图片 2.然后呢我们Ctrl+A选中所有图片 ...
Excel根据名字批量插入图片
Excel根据名字批量插入图片一.如果图片名称与Excel名称不一致时(如下图1) (图1) 1. 先将文件名批量形成文档txt,先新建一个文本文档1.TXT 打开后输入批处理命令:dir . &g ...
excel2019单元格插入图片位置大小随单元格变化
描述:excel2019单元格插入图片位置大小随单元格变化步骤: 复制图片到Excel2019单元格调整图片到合适大小双击图片,菜单栏会出现图片工具格式找到对齐,选择对齐网格将图片对齐单元 ...
使用伪元素插入图片大小调整问题
css使用伪元素插入图片大小调整问题需求描述: 想要利用伪元素在a标签后插入图片,调整为合适大小. 效果图: 问题描述: 使用伪元素例如::after的content属性插入图片不能调整图片大小问题 ...
私人笔记 -- 将图片插入到指定的单元格位置，并设置图片的宽度和高度
/// <summary> /// 将图片插入到指定的单元格位置,并设置图片的宽度和高度. /// 注意:图片必须是绝对物理路径 /// </summary> /// < ...
php单元格字体颜色,PHPExcel API接口用法大全，按模板导入excel，美化excel，导出图片，设置单元格字体颜色背景色边框，合并单元格，设置行高列宽...
PHPExcel API接口用法大全,按模板导入excel,美化excel,导出图片,设置单元格字体颜色背景色边框,合并单元格,设置行高列宽 2020-08-31 85 一:读取excel表模板$ph ...

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

文章目录

前言