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