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

  • Автор темы Автор темы izrukvruki
  • Дата начала Дата начала
  • Теги Теги
    vba
Статус
Закрыто для дальнейших ответов.

izrukvruki

Топикстартер
15 лет на форуме
Сообщения
1 877
Реакции
307
Подскажите пожалуйста:
на листе несколько элементов, как макросом выделить все элементы и узнать в пикселях размер всего выделенного?
 
1) Зачем макросом? Есть же Select all - Objects
2) В каких пикселях? Корел, вообще-то векторный редактор
 
1. У меня макрос по экспорту всего что есть в jpg и png с определенными настройками...
2. Вы меня пугаете. В качестве единиц измерения могут выступать любые единицы измерения
 
1) SendKeys '%EAO' ;)
2) ActiveDocument.Unit = cdrPixel
примерно как то так
 
сам допетрил...

Код:
    ActiveDocument.Unit = cdrPixel
   
    ActiveLayer.Shapes.All.CreateSelection
   
    Dim selec1 As ShapeRange
    Set selec1 = ActiveSelectionRange   
   
    UserForm10.TextBox4 = Int(selec1.SizeHeight)
    UserForm10.TextBox3 = Int(selec1.SizeWidth)
 
Так он только шейпы выделит
И, кстати, Units тоже правильно будет работать только в том случае, если в jpg экспортируете с текущим разрешением документа. В остальных случаях руками пересчитывать придется
 
А что он может не выделить?

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

если ничего не выделено, то корел не сможет экспортировать, т.е. по идее будет выброшено исключение. т.о. обрабатывай исключение, если в corel vba для этого есть инструменты и экспортируй все.
 
у автора есть - он не знает как
C чего вы взяли? Судя по топику - вполне себе представляет как, да он, собственно, и не про то спрашивал.
впрочем, я тоже не знаю
Тогда непонятно, зачем вообще писали? Главное не победа, а участие? '))'
 
C чего вы взяли? Судя по топику - вполне себе представляет как, да он, собственно, и не про то спрашивал.
внимательно перечитай его сообщение


Тогда непонятно, зачем вообще писали? Главное не победа, а участие?
как альтернативный вариант, своего рода лайфхак '))'
 
внимательно перечитай его сообщение
как макросом выделить все элементы и узнать в пикселях размер всего выделенного?
'hmmm''hz'
своего рода лайфхак
Может, имелся в виду троллинг? '))'
 
Сейчас вот это хочу, но не знаю как реализовать:
если что-то выделено (+узнать размеры выделенного), то только это экспортировать,
если ничего не выделено - то выделить все (+узнать размеры всего), и экспортировать.

Размеры мне нужны, вот для чего: по умолчанию будет экспортироваться с размерами 1в1, как указано в документе, но иногда я буду вручную вводить размеры - иногда/редко нужно меньше размеры чем в документе.
 
Может, имелся в виду троллинг? '))'
ничуть. обработка исключений - важная часть любого нормального ЯП, и используя их можно найти удобный выход из некоторых ситуаций, хотя конечно, лучше их применять по своему прямому назначению.
 
Последнее редактирование:
Чем исключения обрабатывать не проще ли сперва проверить длину массива activeselection? Что касается размера - вы наверное будете удивлены,так у этого массива, внезапно, и размеры есть, как у любого объекта ;)
 
Статус
Закрыто для дальнейших ответов.