Re: Сложнейшая задача для дилетанта

Написал ege_ft в 01/06/2009 18:57:55

Это мой изначальный код......сюда то я и буду вклинивать сортировку, но скорее всего потом нужно будет как-нибуть упрощать посредством общих функций или каких-либо универсальных классов....Конечный проект, по моей задумке, облегчит жизнь многим братьям по цеху....
Public Sub DistributeButt()
Dim X As Double, Y As Double
Dim NumObjs As Long
Dim s As Shape
Dim First As Boolean
Dim i As Integer
Dim d As Document
Set d = ActiveDocument
ActiveDocument.Unit = cdrMillimeter
NumObjs = d.Selection.Shapes.Count
If NumObjs < 2 Then
i = MsgBox("You should select s few objects first", vbOKOnly, "Distributing"
Exit Sub
End If
d.BeginCommandGroup
First = True
For Each s In d.Selection.Shapes
If Not First Then
s.PositionX = X
s.PositionY = Y
End If
X = s.PositionX
Y = s.PositionY - s.SizeHeight - 3
First = False
Next s
d.EndCommandGroup
End Sub