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

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

в 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...

извиняюсь за величину скриншота - ВСЕ полезные клавиши тут

'yes'

кнопки в меню бар 'hmmm' ... нее ... этого не надо ... а вот "Добавить новое меню" приведет туда же (см. скрин сообщения#19) Вот - пжлте - две команды Object '))' так что можно сразу переходить к пункту 2 добавлено ИМХО кто-то ... удалял кнопки из StandartBar и ... Остап Ибрагимыч, я...

на 2019 проверено ... у ТС на скрине 2020 и она (пока :) ) не пожаловалась ... на Х7, 2017, 2021 и 2022 такие итемы тоже есть <itemData guid="daf0e139-860e-4549-8bbb-b3a1a9f97310" noBmpOnMenu="true" остальное надо проверять

вот как раз нет - это не сброс пространства, а "ремонт" программных файлов

в качестве экзотики - могу предложить макрос - результат вызова аналогичен нажатию мышом на пункт OBJECT Sub ObJ() Application.FrameWork.Automation.InvokeItem "daf0e139-860e-4549-8bbb-b3a1a9f97310" DoEvents End Sub