谁能帮我注释一下这段代码啊。VBA小白看不懂，,越详细越好，谢谢您了

Sub 宏1() '子程序 宏1()
Dim i, myPath$ '定义变量 i,myPath$
myPath = ThisWorkbook.Path & "\" '获取当前文件的路径 'myPath= 当前工作簿的路径 & "\"'获取当前文件的路径
For i = 2 To 35 '设定变量范围为i=2到35
Range("B" & i).Select '<单元格>区域("B" & i )的选定
ActiveSheet.Pictures.Insert(myPath & "F\" & Range("A" & i) & ".jpg").Select ' 活动工作表的图片集的<插入>(myPath & "F\" & <单元格>区域("A" & i) & ".jpg" )的选定
'在选中的位置插入图片
'myPath 相位的路径
'Range("A" & i) 相片的文件名，如果相片用B列命名也可以的
'要有相片路径+名称+后缀
Next i '下一个i
End Sub '子程序结束

Sub 宏1() '子程序 宏1()
Dim i, myPath$, a1, a2, b1, b2 '定义变量 i,myPath$,a1,a2,b1,b2
Dim Pa As Picture '定义变量 Pa 为 Picture
myPath = ThisWorkbook.Path & "\" '获取当前文件的路径 'myPath= 当前工作簿的路径 & "\"'获取当前文件的路径
Application.ScreenUpdating = False '关闭屏幕刷新(可以提高运行速度)
For Each Pa In ActiveSheet.Pictures '设定变量范围为每一个Pa位于 活动工作表的图片集
Pa.Delete ' Pa的删除
Next '下一个

For i = 2 To 35 '设定变量范围为i=2到35
a1 = 0: a2 = 0: b1 = 0: b2 = 0 'a1=0:a2=0:b1=0:b2=0
Range("B" & i).Select '<单元格>区域("B" & i )的选定
a1 = ActiveCell.Left 'a1= 活动单元格的左侧
a2 = ActiveCell.Top 'a2= 活动单元格的顶部
b1 = ActiveCell.Width 'b1= 活动单元格的宽度
b2 = ActiveCell.Height 'b2= 活动单元格的高度
ActiveSheet.Pictures.Insert(myPath & "F\" & Range("A" & i) & ".jpg").Select ' 活动工作表的图片集的<插入>(myPath & "F\" & <单元格>区域("A" & i) & ".jpg" )的选定
Selection.ShapeRange.LockAspectRatio = False ' 被选项的ShapeRange的LockAspectRatio=False
Selection.ShapeRange.Left = a1 + 1 ' 被选项的ShapeRange的左侧=a1+1
Selection.ShapeRange.Top = a2 + 1 ' 被选项的ShapeRange的顶部=a2+1
Selection.ShapeRange.Width = b1 - 2 ' 被选项的ShapeRange的宽度=b1-2
Selection.ShapeRange.Height = b2 - 2 ' 被选项的ShapeRange的高度=b2-2
Next i '下一个i
Application.ScreenUpdating = True '开启屏幕刷新
MsgBox "完成!" '<消息框>："完成!"
End Sub '子程序结束

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vr7fve2yfre3ferr2yx.html