Макрос для распределения объектов

[G-Kir]

Вот как обещал здесь:
http://www.graphics.ru/forum/read.php?9,126322

Раньше не мог — страшно занят.
Сам макрос тута

http://kir-arts.narod.ru/distrib.html

 

[Mike Udin]

Здесь тоже скажу:
Работает прекрасно — спасибо большое. ))

 

[G-Kir]

На здоровье. Он мне пригодился один раз, а после апгрейда железа я о нем даже не вспомнил. Если бы на форуме не увидел тему, то так бы и пылился этот макрос на болванке

 

[_AR_]

Приветствую !

Не могли бы Вы поделиться вышеуказанным макросом, плиз очень надо или если есть у кого вот такая штука:
Макрос "Shake Well" для Corel 10: хаотичное распределение объектов или групп по поверхности прямоугольника.

 

[Mike Udin]

Не могли бы Вы поделиться вышеуказанным макросом, плиз очень надо...

А самому сходить по ссылке, что мешает?

 

[_AR_]

Ваша правда. Извиняюсь.
Зашёл с другого компа без проблем скачал. Спасибо.

 

[_AR_]

У кого нибудь есть такой:

Макрос "Shake Well" для Corel 10: хаотичное распределение объектов или групп по поверхности прямоугольника.
Поделитесь пожалуйста.

 

> ...хаотичное распределение объектов или групп по поверхности прямоугольника...

Неужели для этого нужен макрос?
Всего-то надо создать спрей кисть. Потом регулирй как хочешь и добавляй объектов сколько угодно.

 

[Kerch]

Может это подойдет?

Sub ShowProgress()
Dim doc As Document
Dim n As Long

Set doc = CreateDocument
Status.BeginProgress CanAbort:=True
For n = 1 To 1000
doc.ActiveLayer.CreateRectangle2 Rnd() * 8, Rnd() * 11, Rnd() * 5, Rnd() * 5
If (n Mod 10) = 0 Then
Status.UpdateProgress
If Status.Aborted Then Exit For
End If
Next n
Status.EndProgress
End Sub

 

[_AR_]

Макрос называется создание 1000 разных прямоугольников ?
Спасибо .