网站首页/硬件软件列表/内容

如何使用VBA自动调整Excel插入的图片同单元格一样大小

硬件软件2025-03-14阅读
办公软件是指可以进行文字处理、表格制作、幻灯片制作、图形图像处理、简单数据库的处理等方面工作的软件。目前办公软件朝着操作简单化,功能细化等方向发展。办公软件的应用范围很广,大到社会统计,小到会议记录,数字化的办公,离不开办公软件的鼎力协助。另外,政府用的电子政务,税务用的税务系统,企业用的协同办公软件,这些都属于办公软件。

Step01:鼠标依次单击“开发工具”——“visual basic",打开如下图所示的编辑窗口,单击sheet1

如何使用VBA自动调整Excel插入的图片同单元格一样大小

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,然后单击“确定”按钮。

如何使用VBA自动调整Excel插入的图片同单元格一样大小

STEP04:调整表格行的高度与宽度,然后单击"按钮2",在弹出”插入图片“对话框,挑选合适的图片后单击插入按钮,完成后效果如下图所示,图片会自动调整大小使之符合单元格大小

如何使用VBA自动调整Excel插入的图片同单元格一样大小


Office办公软件是办公的第一选择,这个地球人都知道。

……

相关阅读