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

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

大侠们怎样用VBA‘批量’朝X或Y 方向复制某个图形，哪位大侠能帮帮忙。小弟感激不尽！！！！[br]怎样用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 方向复制某个图形，哪位大侠能帮帮忙。小弟感激不尽

发表回复

精选推荐