Russian Qt Forum
Март 29, 2024, 00:04 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
 
  Начало   Форум  WIKI (Вики)FAQ Помощь Поиск Войти Регистрация  

Страниц: [1]   Вниз
  Печать  
Автор Тема: Закрасить линию Ms Word  (Прочитано 6646 раз)
Eg.Er2022
Новичок

Offline Offline

Сообщений: 1


Просмотр профиля
« : Сентябрь 01, 2022, 13:57 »

Делаю отчет в Word c помощью стандартных средств без генераторов отчетов, вывожу линии, хочу поменять их цвет.
Добавляю канвас, добавляю в этот канвас линию, меняю свойство ForeColor:

Код:
  QAxObject *shapes = doc->querySubObject("Shapes");
    if (!shapes) return;
    QAxObject *canv = shapes->querySubObject("AddCanvas(Left, Top, Width, Height)", 130, 30, 140, 40);
    if (!canv) return;
    QAxObject *canvItems = canv->querySubObject("CanvasItems");
    if (!canvItems) return;
    QAxObject *line1 = canvItems->querySubObject("AddLine(double, double, double, double)", 25.0, 25.0, 50.0, 25.0)
                               ->querySubObject("Line");
    QAxObject *line2 = canvItems->querySubObject("AddLine(double, double, double, double)", 55.0, 25.0, 70.0, 25.0)
                               ->querySubObject("Line");

    line1->querySubObject("ForeColor")->setProperty("RGB", "RGB(29,21,86)");
    line2->setProperty("ForeColor", QColor().red());

Но цвет ни  1, ни 2 линии не меняется, в ворде цвета линий остаются черными!

Что я делаю неправильно?
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  


Страница сгенерирована за 0.042 секунд. Запросов: 22.