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

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

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"，在弹出”插入图片“对话框，挑选合适的图片后单击插入按钮，完成后效果如下图所示，图片会自动调整大小使之符合单元格大小