订阅怎样用VBA代码根据表格内容插入图片？
来源：网络收集 点击： 时间：2024-02-24首先在表格当中输入一些内容内容的名字和文件夹中图片的名字是一样的，
2/8这些文件夹中把图片的名字改成和表格当中，单元格中填充的内容是一致的，
3/8然后点击页面上方的vba编辑器，
4/8然后我们点击选择插入一个模块，
5/8在模块当中输入以下内容，
Sub 单元格插入图片()On Error Resume Next 出错继续执行后面的代码Dim M As Range, fd, tSet fd = Application.FileDialog(msoFileDialogFolderPicker) 允许用户选择一个文件夹If fd.Show = -1 Then t = fd.SelectedItems(1) Else Exit Sub End IfFor Each M In Selection If Not IsEmpty(M) Then M.MergeArea.Select ML = M.MergeArea.Left + 20 图片的顶部位置等于单元格的顶部向下20 MT = M.MergeArea.Top + 20 图片的左边位置等于单元格的左边向右20 MW = M.MergeArea.Width - 40 图片的宽度等于单元格的宽度减少-40 MH = M.MergeArea.Height - 40 图片的高度等于单元格的高度咸少-40 ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select Selection.ShapeRange.Fill.UserPicture t \ M.Text .jpg 当前文件所在目录下以当前单元内容为名称的.jpg图片 End IfNextEnd Sub
6/8点击页面左上角的运行代码按钮，
7/8选择插入的图片所存放的文件夹，点击打开，
8/8最后就可以看到图片，成功的插入到了每一个单元格当中，
注意事项智能手机助理给我们的生活带来了极大的便利！
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_132233.html
