Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.05.2020, 11:03   #1
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию Ворд-ВБА

1
есть два топика
https://www.planetaexcel.ru/forum/?F...read&TID=45185
https://www.sql.ru/forum/779122-1/ne...o-bylo-u-menya
в первом для экселя, во втором для аксцесса, мне нужно для Ворда, чтобы кодом ВБА править риббон ленту
2
хотелось бы убрать подсказку
Normal.dotm
Дополнительные сведения
сможете убрать?
3
нужен скрипт ВБА
после того как в чистый документ Ворда вставили картинку, например скрин, после того как ПКМ кликнули по этому скрину согласно кода в меню появится запись:
Код:
Sub AddCommandBarsInlinePicture()
'контекстное меню появляется при наведении на Picture-Рисунок
    With Application.CommandBars("Inline Picture")
        With .Controls.Add(msoControlButton)
            .OnAction = "Действие_с_InlineShapes"
            '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
            .Caption = "ДНСД Добавить овал 5х3 без заливки с линией красного цвета &1"
        End With
    End With
End Sub
после того как юзер кликнул на это меню нужно подправить функционал, который я накидал:
Код:
Sub Действие_с_InlineShapes()

    Dim oval_width As Long
    Dim oval_height As Long
    Dim oval_line_thickness As Long
    Dim oval_left As Long
    Dim oval_top As Long
    Dim oval_fill_color As ????
    Dim oval_line_color As ????
    'ширина овала
    oval_width = 50
    'высота овала
    oval_height = 30
    'толщина линии овала
    oval_line_thickness = 20
    'позиция в пунктах верхнего левого угла автофигуры относительно левого верхнего угла документа
    oval_left = ????
    'положение в точках верхнего левого угла автофигуры относительно верхнего края документа
    oval_top = ????
    'в центре этого скрина должен добавиться центром овал с параметрами:
    'oval_fill_color нет заливки (цвет заливки овала)
    'oval_line_color красный (цвет линии овала)
    Dim Shape As Shape
    'добавить автофигуру Овал (Вставка-Рисунок-Автофигуры) Сердце - msoShapeHeart, Прямоугольник - msoShapeRectangle
    Set Shape = ActiveDocument.Shapes.AddShape(msoShapeOval, oval_left, oval_top, oval_width, oval_height)

End Sub
4
но после удаления скрина этот овал не удаляется, будет:
ActiveDocument.InlineShapes.Count = 0
ActiveDocument.Shapes.Count = 1
как бы его приклеить, чтобы удалялся вместе со скрином, предлагайте, события Change в Ворде как в Экселе нет)), событие Before Delete, наверное, есть, но юзер может выделить скрин и на его место добавить текст и он удалится, на таймер ставить на проверку наличия в документе InlineShapes и Shapes как бы не очень хорошо))

высший пилотаж конечно как в пэйнте, для этого пригодится
Инструменты: кисть, карандаш, ластик
Толщина кисти, карандаша, ластика
Заливка кисти, карандаша
Ещё не нашёл где выбрать цвет кисти, карандаша....
хотелось бы и так...

Цену предлагайте
Ципихович Эндрю вне форума Ответить с цитированием
Старый 21.05.2020, 11:45   #2
kramer12
 
Регистрация: 22.03.2020
Сообщений: 3
По умолчанию

Приветствую 4к руб, срок 1 день.
Контакты:
Telegram: @DartSidys
Jabber: CryptorX@404.city
Обращайтесь
kramer12 вне форума Ответить с цитированием
Старый 21.05.2020, 12:33   #3
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию

Новичок-идёт лесом
Ципихович Эндрю вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод в ворд Genyaa Общие вопросы C/C++ 2 05.08.2019 13:18
ворд вба сергей_ком Помощь студентам 1 27.12.2018 22:06
Ворд xpams Общие вопросы Delphi 1 26.11.2011 23:34
Из Делфи в Ворд!! Malyava Помощь студентам 0 17.03.2011 10:34
OLE и ворд xakkkkker Общие вопросы Delphi 2 16.08.2009 17:02