[CDR X4 и ранее] Как выделить все объекты

[izrukvruki]

Подскажите пожалуйста:
на листе несколько элементов, как макросом выделить все элементы и узнать в пикселях размер всего выделенного?

 

[_MBK_]

1) Зачем макросом? Есть же Select all - Objects
2) В каких пикселях? Корел, вообще-то векторный редактор

 

[izrukvruki]

1. У меня макрос по экспорту всего что есть в jpg и png с определенными настройками...
2. Вы меня пугаете. В качестве единиц измерения могут выступать любые единицы измерения

 

[_MBK_]

1) SendKeys '%EAO'
2) ActiveDocument.Unit = cdrPixel
примерно как то так

 

[izrukvruki]

сам допетрил...

    ActiveDocument.Unit = cdrPixel
   
    ActiveLayer.Shapes.All.CreateSelection
   
    Dim selec1 As ShapeRange
    Set selec1 = ActiveSelectionRange   
   
    UserForm10.TextBox4 = Int(selec1.SizeHeight)
    UserForm10.TextBox3 = Int(selec1.SizeWidth)

 

[_MBK_]

ActiveLayer.Shapes

Так он только шейпы выделит
И, кстати, Units тоже правильно будет работать только в том случае, если в jpg экспортируете с текущим разрешением документа. В остальных случаях руками пересчитывать придется

 

[izrukvruki]

А что он может не выделить?

Сейчас подумал, что лучше сделать так: если что-то выделено (это как написать?), то только это экспортировать, если ничего не выделено - то все.

 

[_MBK_]

А что он может не выделить?

Хотя, по идее, да, к примеру, битмапы тоже в шейпы засунуты
Тогда лучше SelectableShapes, чтоб наверняка

 

[tixik]

Сейчас подумал, что лучше сделать так: если что-то выделено (это как написать?), то только это экспортировать, если ничего не выделено - то все.

если ничего не выделено, то корел не сможет экспортировать, т.е. по идее будет выброшено исключение. т.о. обрабатывай исключение, если в corel vba для этого есть инструменты и экспортируй все.

 

[_MBK_]

обрабатывай исключение, если в corel vba для этого есть инструменты

Есть. Но это дурной тон, правильнее все таки проверять перед экспортом

 

[tixik]

правильнее все таки проверять перед экспортом

если знаешь как

 

[_MBK_]

если знаешь как

А есть какие то проблемы?

 

[tixik]

А есть какие то проблемы?

у автора есть - он не знает как, и никто пока что не подсказал. впрочем, я тоже не знаю.

 

[_MBK_]

у автора есть - он не знает как

C чего вы взяли? Судя по топику - вполне себе представляет как, да он, собственно, и не про то спрашивал.

впрочем, я тоже не знаю

Тогда непонятно, зачем вообще писали? Главное не победа, а участие?

 

[tixik]

C чего вы взяли? Судя по топику - вполне себе представляет как, да он, собственно, и не про то спрашивал.

внимательно перечитай его сообщение

Тогда непонятно, зачем вообще писали? Главное не победа, а участие?

как альтернативный вариант, своего рода лайфхак

 

[_MBK_]

внимательно перечитай его сообщение

как макросом выделить все элементы и узнать в пикселях размер всего выделенного?

своего рода лайфхак

Может, имелся в виду троллинг?

 

[izrukvruki]

Сейчас вот это хочу, но не знаю как реализовать:
если что-то выделено (+узнать размеры выделенного), то только это экспортировать,
если ничего не выделено - то выделить все (+узнать размеры всего), и экспортировать.

Размеры мне нужны, вот для чего: по умолчанию будет экспортироваться с размерами 1в1, как указано в документе, но иногда я буду вручную вводить размеры - иногда/редко нужно меньше размеры чем в документе.

 

[tixik]

@_MBK_,
ссылка не прикрепилась... имелось ввиду собщение #7.
он там писал:

лучше сделать так: если что-то выделено (это как написать?)

 

[tixik]

Может, имелся в виду троллинг?

ничуть. обработка исключений - важная часть любого нормального ЯП, и используя их можно найти удобный выход из некоторых ситуаций, хотя конечно, лучше их применять по своему прямому назначению.

 

[_MBK_]

Чем исключения обрабатывать не проще ли сперва проверить длину массива activeselection? Что касается размера - вы наверное будете удивлены,так у этого массива, внезапно, и размеры есть, как у любого объекта