Copy to new artboard with transformation in VBA


hallo forum,

 

i have common problem resize artboard standardize technical illustrations format 50x50mm. found in forum (thank you). have problem , may can me:

 

  • i group objects further transformations
  • i transform group 45mm , scale stroks , effects

n.b.: here should test on landscape format

 

  • i align group page center

 

this code, may can me ?

 

thank every replay

regards alex

 

public sub copy_paste_with_transformation ()

'duplicates grouped items in new document landscape sensitive transformation

set appref = createobject("illustrator.application")

 

'calculate size of objects define if it's landscape or not

bounds = appref.activedocument.visiblebounds

 

'if group landscape lenth should 45mm otherwise higth

 

appref.activedocument.groupitems 'problem

appref.activedocument.selectobjectsonactiveartboard 'may solution cs4 too

 

appref.activedocument.resize(45, 45) 'problem

 

appref.activedocument.copy

 

set newdocument = appref.documents.add(aidocumentcmykcolor, 50, 50) 'paper size 50mm

newdocument.paste

 

'align group page center hrizontal , vertical

'???

 

end sub

im sorry don't vb ( mac thing ) don't need translate x&y little math? paste should put @ window centre… have tried changing view?



More discussions in Illustrator Scripting


adobe

Comments

Popular posts from this blog

How to change text Component easybook reloaded *newbee* - Joomla! Forum - community, help and support

After Effect warning: A problem occurred when processing OpenGL commands

Preconditions Failed. - Joomla! Forum - community, help and support