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

您所在的位置：网站首页 › excel更改宏 › Excel使用VBA自动调整插入图片大小到单元格

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

2024-01-01 05:57| 来源: 网络整理| 查看: 265

文章目录前言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 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快捷键进行执行

总结

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

【本文地址】

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

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

今日新闻

推荐新闻