1

Я формирую 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" - но по-моему немного не совсем то, учитывая.
Макрос в MSWord выглядит вот так:

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;

Но так добавляется два объекта с разной высотой и шириной.
Мне каким-то образом нужно присвоить объекту размеры до вставки?

1
  • 2
    На полноценный ответ не тянет, но: не совсем правильный перевод в Delphi. Должно быть так: obj:=WordApp1.Selection.InlineShapes.AddOleObject(); obj.Height:=20; obj.Width:=20;
    – kami
    18 дек 2015 в 6:17

1 ответ 1

1

Как-то так:

var
  MyOLEObject: T{что_там_возвращает_AddOLEObject};
...
MyOLEObject := WordApplication1.Selection.InlineShapes.AddOLEObject(LClassType, LFileName, LLinkToFile, LDisplaySaIcon, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
MyOLEObject.Height := 20;
MyOLEObject.Width := 20;
8
  • AddOleObject, как и все остальные методы работы с объектами MS Office, возвращает OLEVariant
    – kami
    18 дек 2015 в 7:21
  • А скажите, как так получается: строка >> WordApplication1.Selection... - непосредственно выводит данные в "*.doc". И потом же эта функция возвращает значение переменной, которая уже меняет размеры. Т.е. Уже после вывода объекта??? ("лошадь сзади телеги" - получается?) 18 дек 2015 в 9:05
  • Лошадь не сзади :) До того, как вставлен объект, для word его не существует. Чтобы поменять свойства чего-либо, нужно чтобы это что-либо появилось. AddOleObject "появляет" новый объект в документе и возвращает его для возможности изменения. Для примера - вы же не можете поменять размеры у TForm до того, как создадите ее?
    – kami
    18 дек 2015 в 9:11
  • 1
    Я думаю, что таким образом обходятся какие-то ограничения в MS Office. Опять по аналогии с Delphi - если мы создадим контрол без привязки его к форме (Parent = nil & Owner = nil), то при попытке что-либо с ним сделать вполне можем получить exception Control has no parent window, т.к. он пытается перерисоваться, а рисовать-то не на чем...
    – kami
    18 дек 2015 в 9:51
  • конечно вопросов нет, что свойства меняются после создания объекта. Но как то мне казалось, что где-то надо вроде так 1) MyOLEObject := InlineShapes.AddOLEObject(... - создали объект, 2) MyOLEObject.Height .... t.Width := 20; - применили к нему значения, 3) WordApplication1.Selection... - вывели его (синтаксис конечно отдыхает, но ход событий где-то такой) 18 дек 2015 в 9:51

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.