VBA++ 题记：
今日内容是和大家分享VBA编程中常用的 "积木"过程代码，这些内容大多是我的经验的记录。来源于我多年的经验。今日分享的是第NO.215-NO.215，内容是：
NO. 215：Insert方法在工作表中插入图片********************************************************************
VBA过程代码215：Insert方法在工作表中插入图片
Sub MynzinsertPic()
Dim i As Integer
Dim FilPath As String
Dim rng As Range
Dim ns As String
With Sheets("Sheet14")
For i = 2 To .Range("a65536").End(xlUp).Row
FilPath = ThisWorkbook.Path & "" & .Cells(i, 1).Text & ".jpg"
If Dir(FilPath) <> "" Then
.Pictures.Insert(FilPath).Select
Set rng = .Cells(i, 2)
With Selection
.Top = rng.Top + 1
.Left = rng.Left + 1
.Width = rng.Width - 1
.Height = rng.Height - 1
End With
Else
ns = ns & Chr(10) & .Cells(i, 1).Text
End If
Next
.Cells(3, 1).Select
End With
If ns <> "" Then
MsgBox ns & Chr(10) & "没有相应的照片，请确认！"
End If
End Sub代码解析：Mynz过程使用Insert方法在工作表中插入图片。代码开始For...Next循环，循环的终值由工作表中A列单元格的行数所决定。代码字符串变量FilPath保存A列名称单元格所对应的图片文件的路径和文件名，本例中图片文件的文件名应和A列中的名称一致。代码使用Dir函数在同一文件夹中查找与A列单元格中的名称相对应的图片文件，如果对应的图片文件存在则使用Insert方法将图片插入到工作表中，并将B列的单元格赋给变量rng。
当图片片插入到工作表时其实是插入到活动单元格的，此时需设置图片的Top属性和Left属性将图片移动到B列所对应的单元格中，并设置其Width属性和Height属性使其适应所在单元格的大小。如果在同一文件夹中没有与A列单元格对应的图片文件，则使用字符串变量ns保存没有图片文件的名称。如果字符串变量ns不等于空白说明文件夹中缺少图片文件，使用消息框提示。
*******************************************************
VBA是实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA学习教程，这些是我多年编程经验的记录，也是我"积木编程"思想的体现。每一讲都是一块"积木"，可以独立的完成某些或者某类的过程。利用这些可以大大提高自己的编程效率。
第一："VBA代码解决方案"是PDF电子版，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级人员必备的资料；
第二："VBA数据库解决方案"是PDF电子版，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。
第三："VBA数组与字典解决方案"是PDF电子版，讲解VBA的精华----字典，是我们打开思路，提高代码水平所必备。
第四："VBA代码解决方案"视频。是专门给初学者讲解的视频教程，通过147讲的视频学习可以让你更快的掌握这门技能。
