社区 › VB › 大侠们怎样用VBA‘批量’朝X或Y 方向复制某个图形，哪位大侠能帮帮忙。小弟感激不尽

xiaowu6886 发表于 2010-5-28 20:49:00

大侠们怎样用VBA‘批量’朝X或Y 方向复制某个图形，哪位大侠能帮帮忙。小弟感激不尽

大侠们怎样用VBA‘批量’朝X或Y 方向复制某个图形，哪位大侠能帮帮忙。小弟感激不尽！！！！怎样用VBA实现‘批量’朝X或Y 方向复制某个图形，哪位大侠能帮帮忙。小弟感激不尽！！！！
急用，老师叫我们搞毕业设计，以前都没学过VBA，弄不来。
希望有人帮帮忙！！！！

qihuiqiang 发表于 2010-5-28 22:07:00

联系我QQ534206572

jerry1988 发表于 2010-6-18 11:23:00

阵列 核心代码如下:

先要设置Set lineobj和Set lineobj1（即画线） 然后，
'偏移直线
   Dim offsetobj As Variant
   
offset = 4500
   offsetobj = lineobj1.offset(offset)
       '定义矩形阵列
   Dim numberofrows As Long
   Dim numberofcolumns As Long
   Dim numberoflevels As Long
   Dim distancebwtnrows As Double
   Dim distancebwtncolumns As Double
   Dim distancebwtnlevels As Double
   numberofrows = 4
   numberofcolumns = 4
      numberoflevels = 1
   distancebwtnrows = 4
      distancebwtncolumns = 4
   distancebwtnlevels = 1
   '创建对象阵列
   Dim retobj As Variant
      
   retobj = lineobj.ArrayRectangular(numberofrows, 1, 1, distancebwtnrows, 1, 1)
   retobj = lineobj1.ArrayRectangular(1, numberofcolumns, 1, 1, distancebwtncolumns, 1)
   
   ZoomAll

查看完整版本: 大侠们怎样用VBA‘批量’朝X或Y 方向复制某个图形，哪位大侠能帮帮忙。小弟感激不尽