Я формирую 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;
Но так добавляется два объекта с разной высотой и шириной.
Мне каким-то образом нужно присвоить объекту размеры до вставки?