随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样用VB钽吟篑瑜A代码根据表格内容插入图片？
工具/原料
手机
方法/步骤
1、首先在表格当中输入一些内容内容的名字和文件夹中图片的名字是一样的，
2、这些文件夹中把图片的名字改成和表格当中，单元格中填充的内容是一致的，
3、然后点击页面上方的vba编辑器，
4、然后我们点击选择插入一个模块，
5、在模块当中输入以下内容，Sub单元格插入图片()OnErrorResume鲍伊酷雪Next'出错继续执行后面的代码DimMAsRange,f颊俄岿髭d,tSetfd=Application.FileDialog(msoFileDialogFolderPicker)'允许用户选择一个文件夹Iffd.Show=-1Thent=fd.SelectedItems(1)ElseExitSubEndIfForEachMInSelectionIfNotIsEmpty(M)ThenM.MergeArea.SelectML=M.MergeArea.Left+20'图片的顶部位置等于单元格的顶部向下20MT=M.MergeArea.Top+20'图片的左边位置等于单元格的左边向右20MW=M.MergeArea.Width-40'图片的宽度等于单元格的宽度减少-40MH=M.MergeArea.Height-40'图片的高度等于单元格的高度咸少-40ActiveSheet.Shapes.AddShape(msoShapeRectangle,ML,MT,MW,MH).SelectSelection.ShapeRange.Fill.UserPicturet&"\"&M.Text&".jpg"'当前文件所在目录下以当前单元内容为名称的.jpg图片EndIfNextEndSub
6、点击页面左上角的运行代码按钮，
7、选择插入的图片所存放的文件夹，点击打开，
8、最后就可以看到图片，成功的插入到了每一个单元格当中，
