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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2015, 18:59   #1
KBO
Форумчанин
 
Регистрация: 11.06.2010
Сообщений: 525
По умолчанию Изменение размера значка звука (вставленного файла) в MSWord

Здравствуйте форумчане,
Я формирую MSWord’овский документ, и туда из БД вставляю звуковые файлы.
Код:
var
  LClassType, LFileName, LLinkToFile, LDisplaySaIcon, LIconFileName, LIconIndex, LIconLabel, LRange: Olevariant;
begin
…
      LClassType := 'Package';
      LFileName := PrPathForVoice+ibqEmpty.FieldByName('EW1').AsString+'.mp3';
      LLinkToFile := false;
      LDisplaySaIcon := false;
      WordApplication1.Selection.InlineShapes.AddOLEObject(LClassType, LFileName, LLinkToFile, LDisplaySaIcon,
                                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam);
…
end;
В Word они выглядят как значки (ярлыки), определенного размера.
Я хочу уменьшить размеры этих значков.
Я бы посмотрел это в самом макросе, но все дело в том, что во время записи макроса, изменить размеры не получается. Можно менять только после окончания записи макроса.
Хотя последним параметром функции "AddOLEObject" я вляется "LRange" - но по-моему немного не совсем то, учитывая

Заранее спасибо

Последний раз редактировалось KBO; 17.12.2015 в 19:34.
KBO вне форума Ответить с цитированием
Старый 17.12.2015, 23:12   #2
KBO
Форумчанин
 
Регистрация: 11.06.2010
Сообщений: 525
По умолчанию

В VBA, это выглядит вот так:
Код:
Set y = Selection.InlineShapes.AddOLEObject(ClassType:="Package", FileName:= _
        "D:\Prog\Eng_gdb\Documents\Voice\accept.mp3", LinkToFile:=False, _
        DisplayAsIcon:=False)
  y.Height = 20
  y.Width = 20
т.е.
в Delphi будет:
Код:
 
  WordApplication1.Selection.InlineShapes.AddOLEObject(LClassType, LFileName, LLinkToFile, LDisplaySaIcon, EmptyParam, EmptyParam, EmptyParam, EmptyParam).Height := 20;
WordApplication1.Selection.InlineShapes.AddOLEObject(LClassType, LFileName, LLinkToFile, LDisplaySaIcon, EmptyParam, EmptyParam, EmptyParam, EmptyParam).Width := 20;
Но так добавляется два объекта с разной высотой и шириной.

Каким-то образом можно присвоить объекту размеры до вставки?

Последний раз редактировалось KBO; 18.12.2015 в 03:26.
KBO вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Изменение размера TImage SkOle Компоненты Delphi 3 24.09.2013 10:07
Изменение размера файла при заливке на хостинг, через IdHTTP spirit-ua Общие вопросы Delphi 5 29.03.2013 21:26
TImage изменение размера batrak C++ Builder 3 23.05.2011 07:40
Изменение размера формы. waterya Общие вопросы Delphi 2 18.06.2010 16:38
Изменение размера файла в С++ Vladya Помощь студентам 0 08.12.2009 18:21