如何使用VBA自动调整Excel插入的图片同单元格一样大小
发布时间:2025-03-14 文章来源:xp下载站 浏览:
| 办公软件是指可以进行文字处理、表格制作、幻灯片制作、图形图像处理、简单数据库的处理等方面工作的软件。目前办公软件朝着操作简单化，功能细化等方向发展。办公软件的应用范围很广，大到社会统计，小到会议记录，数字化的办公，离不开办公软件的鼎力协助。另外，政府用的电子政务，税务用的税务系统，企业用的协同办公软件，这些都属于办公软件。 Step01：鼠标依次单击“开发工具”——“visual basic",打开如下图所示的编辑窗口，单击sheet1
step02: 输入如下的VBA代码： Sub charutupian() 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 step03: 关闭窗口，回到Excel中，鼠标依次单击”开发工具“——”插入“——”按钮“，在工作区拖动绘制，绘制后，如下图所示，在“指定宏”对话框选择代码charutupian，然后单击“确定”按钮。
STEP04：调整表格行的高度与宽度，然后单击"按钮2"，在弹出”插入图片“对话框，挑选合适的图片后单击插入按钮，完成后效果如下图所示，图片会自动调整大小使之符合单元格大小
Office办公软件是办公的第一选择，这个地球人都知道。 |
