决战梭哈棋牌APP下载_决战梭哈棋牌官网 - 由决战梭哈棋牌APP下载,决战梭哈棋牌官网社主办的《决战梭哈棋牌APP下载,决战梭哈棋牌官网》是我国消费领域中一张全国性、全方位、大容量的综合性日报。其立足消费网投领域,依托轻工行业,面向城乡市场,最先发布相关的专业权威资讯。

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

  • 时间:
  • 浏览:11

For i = 2 To 35 '设定变量范围为i=2到35

'myPath 相位的路径

Dim i, myPath$, a1, a2, b1, b2 '定义变量 i,myPath$,a1,a2,b1,b2

Selection.ShapeRange.Left = a1 + 1 ' 被选项的ShapeRange的左侧=a1+1

For Each Pa In ActiveSheet.Pictures '设定变量范围为每有一个多Pa指在 活动工作表的图片集

Selection.ShapeRange.LockAspectRatio = False ' 被选项的ShapeRange的LockAspectRatio=False

'在选中的位置插入图片

Dim Pa As Picture '定义变量 Pa 为 Picture

Selection.ShapeRange.Height = b2 - 2 ' 被选项的ShapeRange的淬硬层 =b2-2

For i = 2 To 35 '设定变量范围为i=2到35

Pa.Delete ' Pa的删除

Next i '下有一个多i

a1 = ActiveCell.Left 'a1= 活动单元格的左侧

Selection.ShapeRange.Top = a2 + 1 ' 被选项的ShapeRange的顶部=a2+1

Selection.ShapeRange.Width = b1 - 2 ' 被选项的ShapeRange的淬硬层 =b1-2

Next i '下有一个多i

Application.ScreenUpdating = True '开启屏幕刷新

b2 = ActiveCell.Height 'b2= 活动单元格的淬硬层

Sub 宏1() '子多线程 池池 宏1()

Next '下有一个多

b1 = ActiveCell.Width 'b1= 活动单元格的淬硬层

Sub 宏1() '子多线程 池池 宏1()

Application.ScreenUpdating = False '关闭屏幕刷新(还也能提高运行下行速率 )

a2 = ActiveCell.Top 'a2= 活动单元格的顶部

End Sub '子多线程 池池开始英语 英语

'要有相片路径+名称+后缀

End Sub '子多线程 池池开始英语 英语

Dim i, myPath$ '定义变量 i,myPath$

a1 = 0: a2 = 0: b1 = 0: b2 = 0 'a1=0:a2=0:b1=0:b2=0

MsgBox "完成!" '<消息框>:"完成!"