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
Post a Comment