drop_shadow to bitmap

[masterdoom]

to all & wOxxOm.
нужен скрипт который: 1-find objects (effects>drop shadow)
2-select all
3-brake apart
4-convert to bitmap

(т.е. автоматом тени в битмапы...)
за помощь обещают ящик пива.

 

[dizzy]

Ответ: drop_shadow to bitmap

Sub ConvertAllDropShadowToBitmap()
Dim sh As Shape, pg As Page
For Each pg In ActiveDocument.Pages
    pg.Activate
    For Each sh In pg.Shapes.FindShapes(Type:=cdrDropShadowGroupShape)
        sh.ConvertToBitmapEx cdrCMYKColorImage, False, True, 300, cdrNoAntiAliasing, True, True
    Next sh
Next pg
End Sub

С тя пиво

 

[masterdoom]

Ответ: drop_shadow to bitmap

Спасибо, огромнейшее, пиво отправлю обязательно.

 

[dizzy]

Ответ: drop_shadow to bitmap

давай... Холодильник я уже освободил

 

[banIDit]

Ответ: drop_shadow to bitmap

Макрос Санчеса это умеет.

 

[dizzy]

Ответ: drop_shadow to bitmap

Блин ну скоро пиво будет?.. Как бы уже выходные вот вот наступят...

 

[Sanchos]

Ответ: drop_shadow to bitmap

...уже наступили а пива не пили )))))))))))))))))))))))

 

[dizzy]

Ответ: drop_shadow to bitmap

вот и верь после этого людям....

 

[Vaska]

Ответ: drop_shadow to bitmap

А если DropShadow находится в Powerclip'е? Как залесть внутрь я понял, но когда конвертирую в битмап получается полная ерунда, а именно объекта просто не видно. В object manager'е есть, но размеры ооооочень маленькие. В чем тонкость?

 

[Sanchos]

Ответ: drop_shadow to bitmap

Военная хитрость!!!
Прежде чем что то битмапить в поверклипе в него надо зайти

s.PowerClip.EnterEditMode
Битмапим тень
s.PowerClip.LeaveEditMode

 

[Vaska]

Ответ: drop_shadow to bitmap

Спасибо, все получилось!