Результаты поиска

согласен, так потому и говорю, что ...

HelveticaNeueCyr Bold

некое подобие (неточное) - сделано в CorelDraw со шрифтом Verdana Pro Bold Italic - других таких "К" не удалось обнаружить Заглавная "О" больше в пунктах нежели остальное и это остальное с otf фичей Small Caps

позанудствую немного ... маркеры - такое у них название ... и не только по углам при простом выделениии - трансформация линейная при втором клике - угловые - поворот, осевые - скос рамка приходит в голову только для инструмента Crop Tool

этот гораздо точнее подходит к скрину

а вроде он

рамка трансформации ... 'hmmm' продемонстрируйте эту рамку скриншотом - что вы под этим подразумеваете

вопрос был - где хранятся цвета по умолчанию для вновь создаваемых фигур при чём тут код?

в Object Style вестимо

ясно, спасибо.

спрошу, пользуясь случаем ... метка "хх лет на форуме" к чему привязана? Когда происходит смена "хх лет" на "хх+1 лет"

после строки s2.GetSize w, h ... If w>h*3 = False Then s.Rotate 90# ' если НЕширокая то поврачиваем Else ' иначе ... тут что ещё End If

добавьте условие - если w>h*3 то поворот вертикального текста не делать и размещать его через 5мм после правого края горизонтального текста и наоборот - скорее всего вам тоже захочется - если w3<h - поворачивать оба ... ну и т.д

ОК Как вы создаёте PDF?

м-да ... хорошо - давайте слегка расчешем граблями у висков ... чтобы не создавать параграф текст, а затем конвертировать его в аристик и кое-что упростим Sub razmer_ne_po_centru() Dim w#, h#, s As Shape, s1 As Shape, s2 As Shape, SZ As Single ActiveDocument.Unit = cdrMillimeter SZ = 24 Set...

и она целиком лежит на странице - ничего за край не свисает?

для этого он там и предусмотрен '))' но в пунктах

размер шрифта в пунктах

числами в строках с Left и Bottom - регулируйте выравнивание в данном случае - ИМХО ни к чему Sub razmer_ne_po_centru() Dim sh As ShapeRange, w#, h#, s As Shape, s1 As Shape, s2 As Shape ActiveDocument.Unit = cdrMillimeter Set OrigSelection = ActiveSelectionRange For Each s2 In OrigSelection...