PowerPoint метод заливка фона поля текста

Форум Программирование Общие вопросы программирования (Dev)

1. One_Assembler 28.09.22 21:49 Сейчас в теме

Нужно добавить полупрозрачную область с текстом по верх картинки (2 строка кода) . Не могу найти метод.
Фрагмент кода вывода:

    Slide.Shapes.AddPicture(ИмяВременногоФайла, false, true, 332, 122, 183, 136);           //вывожу картинку 
	    Slide.Shapes.AddTextbox(1, 332, 239, 182, 10).TextFrame.TextRange.Text = стр.Текст;  //вывожу текст
	    Slide.Shapes(Slide.Shapes.Count).TextFrame.TextRange.font.size = 8;
	    Slide.Shapes(Slide.Shapes.Count).TextFrame.TextRange.font.name = "Cambria";

Копаюсь в док-ции microsoft https://learn.microsoft.com/en-us/office/vba/api/powerpoint.fillformat.presetgradient

Вознаграждение за ответ

Сумма: 0 $m

Добавили:
One_Assembler (0.14 $m)

Получили:

One_Assembler (0.14 $m)

Показать полностью

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. One_Assembler 07.10.22 18:53 Сейчас в теме +0.14 $m

В итоге так

Slide.Shapes.AddPicture(ИмяВременногоФайла, false, true, 332, 248, 183, 136);         //вывод фото
Slide.Shapes.AddTextbox(1, 332, 369, 182, 10).TextFrame.TextRange.Text = стр.Описание;//вывод надписи 
Slide.Shapes(Slide.Shapes.Count).Fill.ForeColor.RGB = RGB(200, 200, 200); //заливка
Slide.Shapes(Slide.Shapes.Count).Fill.Transparency = 0.5;                 //прозрачность
Slide.Shapes(Slide.Shapes.Count).TextFrame.TextRange.font.size = 8;
Slide.Shapes(Slide.Shapes.Count).TextFrame.TextRange.font.name = "Cambria";   

&НаКлиенте
Функция RGB(r, g, b)
    Возврат b * 65536 + g * 256 + r;
КонецФункции

Показать

3. One_Assembler 10.03.24 18:38 Сейчас в теме

Ещё больше в статье простая презентация ПоверПоинт https://olympia-soft.com/stati/78-prezentatsiya-powerpoint-iz-1s

Оставьте свое сообщение

E-mail: