Макрос - рисование ленты

[inTurisT]

вобщем макрос делает из любой загогулины - ленту, нужен он кому-нибудь, и поможет ли кто сделать его, как бы последовательность действий есть, в результате получается, к примеру в ленте как на рисунке, 6 обьектов: 3 пауерклипа и 3 mesh fill

ЗЫ: немогу воткнуться как работать с мешами?

 

[xplight]

Ответ: Нужен ли такой макрос?

ну я думаю пригодится... выкладывай...
- градиент кста некорректный.

 

[addmo]

Ответ: Нужен ли такой макрос?

давай выкладывай, надо посмотреть как он работает

 

[Nicky]

Ответ: Нужен ли такой макрос?

xplight, addmo

...и поможет ли кто сделать его...

Поможете?

 

[xplight]

Ответ: Нужен ли такой макрос?

в маросах, и кодинге 2 по 5 (

 

[addmo]

Ответ: Нужен ли такой макрос?

Поможем чем сможем

 

[inTurisT]

Ответ: Нужен ли такой макрос?

ну вот кто скажет как с мешами рботать?

 

[Henyk]

Ответ: Нужен ли такой макрос?

Как по мне хватило бы трёх простых градиентных объектов

 

[VATS]

Ответ: Нужен ли такой макрос?

Действительно, 3 градиента невооружённым глазом просматриваются.
А в поверклипах что?

 

[Vasca]

Ответ: Нужен ли такой макрос?

Конечно нужно такое!!!

 

[Realalex]

Ответ: Нужен ли такой макрос?

Нужен

 

[dizzy]

Ответ: Нужен ли такой макрос?

Выкладывай последовательность действий.

 

[inTurisT]

Ответ: Нужен ли такой макрос?

короче во что есть типо записано в режиме Record
Sub Macro2()
'
' Recorded 06.03.2007
'
' Description:
'
'
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim eff1 As Effect
Set eff1 = OrigSelection(1).CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToShape, 0#, -0.599516, 20#, cdrExtrudeObjectFill, CreateCMYKColor(100, 0, 100, 0), CreateCMYKColor(0, 0, 0, 100), 0.01, 45#, CreateCMYKColor(100, 0, 100, 0), False)
With eff1.Extrude
.UseBevel = False
.UseExtrudeColorForBevel = True
.UseFullColorRange = True
.Rotate 0#, 0#, 0#
.LightPresent(1) = False
.LightPresent(2) = False
.LightPresent(3) = False
End With
Set eff1 = OrigSelection(1).CreateExtrude(cdrExtrudeBackParallel, cdrVPLockedToShape, 0#, -0.599516, 20#, cdrExtrudeObjectFill, CreateCMYKColor(100, 0, 100, 0), CreateCMYKColor(0, 0, 0, 100), 0.01, 45#, CreateCMYKColor(100, 0, 100, 0), False)
With eff1.Extrude
.UseBevel = False
.UseExtrudeColorForBevel = True
.UseFullColorRange = True
.Rotate 0#, 0#, 0#
.LightPresent(1) = False
.LightPresent(2) = False
.LightPresent(3) = False
End With
Set eff1 = OrigSelection(1).CreateExtrude(cdrExtrudeBackParallel, cdrVPLockedToShape, 0#, -0.735362, 20#, cdrExtrudeObjectFill, CreateCMYKColor(100, 0, 100, 0), CreateCMYKColor(0, 0, 0, 100), 0.01, 45#, CreateCMYKColor(100, 0, 100, 0), False)
With eff1.Extrude
.UseBevel = False
.UseExtrudeColorForBevel = True
.UseFullColorRange = True
.Rotate 0#, 0#, 0#
.LightPresent(1) = False
.LightPresent(2) = False
.LightPresent(3) = False
End With
Set eff1 = OrigSelection(1).CreateExtrude(cdrExtrudeBackParallel, cdrVPLockedToShape, 0#, -0.735362, 20#, cdrExtrudeObjectFill, CreateCMYKColor(100, 0, 100, 0), CreateCMYKColor(0, 0, 0, 100), 0.01, 45#, CreateCMYKColor(100, 0, 100, 0), False)
With eff1.Extrude
.UseBevel = False
.UseExtrudeColorForBevel = True
.UseFullColorRange = True
.Rotate 0#, 0#, 0#
.SetLight 1, cdrLightFrontTopRight, 100
.LightPresent(2) = False
.LightPresent(3) = False
End With
Set eff1 = OrigSelection(1).CreateExtrude(cdrExtrudeBackParallel, cdrVPLockedToShape, 0#, -0.735362, 20#, cdrExtrudeObjectFill, CreateCMYKColor(100, 0, 100, 0), CreateCMYKColor(0, 0, 0, 100), 0.01, 45#, CreateCMYKColor(100, 0, 100, 0), False)
With eff1.Extrude
.UseBevel = False
.UseExtrudeColorForBevel = True
.UseFullColorRange = True
.Rotate 0#, 0#, 0#
.SetLight 1, cdrLightFrontTopRight, 100
.SetLight 2, cdrLightFrontTopRight, 100
.LightPresent(3) = False
End With
Set eff1 = OrigSelection(1).CreateExtrude(cdrExtrudeBackParallel, cdrVPLockedToShape, 0#, -0.735362, 20#, cdrExtrudeObjectFill, CreateCMYKColor(100, 0, 100, 0), CreateCMYKColor(0, 0, 0, 100), 0.01, 45#, CreateCMYKColor(100, 0, 100, 0), False)
With eff1.Extrude
.UseBevel = False
.UseExtrudeColorForBevel = True
.UseFullColorRange = True
.Rotate 0#, 0#, 0#
.SetLight 1, cdrLightFrontTopRight, 100
.SetLight 2, cdrLightFrontLeft, 100
.LightPresent(3) = False
End With
ActiveSelection.Separate
' Recording of this command is not supported: SplitDualSpotObject
End Sub