По сути, выноска (объект Callout) является объектом, во многом сходным с
надписью, поэтому многие их свойства идентичны. Выноска отличается от
надписи дополнительной ломаной линией-указателем. У некоторых вариан-
тов выносок нет линий, ограничивающих текстовую область. Во всех случа-
ях выносок характеристики заливки, расположения текста и линий описы-
ваются такими же объектами и свойствами, как и для надписи (у выноски
свойства линии применяются и к ломаной линии-указателю). У выноски
есть дополнительный объект Adjustments для описания линии-указателя,
содержащий описание параметров линии Adjustments.Item(i), где i изменяет-
ся от 1 до Adjustments.Count (общее количество точек перелома линии).
Создается объект-выноска с помощью метода AddCallout(Type, Left, Top,
Width, Height, Anchor), где Typerinteger — тип выноски, Left, Top, Width,
Height — координаты и размеры (имеют тип Extended), Anchor — область,
где создается выноска.
С помощью следующей процедуры мы создаем выноску с линией-
указателем, описываемой тремя точками (msoCalloutThree=3), а затем изме-
няем горизонтальную и вертикальную координаты конца линии-указателя.
Создание выноски и изменение координат конца линии-указателя
procedure TForm1.Button8Click(Sender: TObject);
var left_,top_:extended;
begin
left_:=40;
top_:=40;
Callout:=E.ActiveWorkBook.ActiveSheet.Shapes.AddCallout(msoCalloutTwo,
left_,top_, 150, 100);
Callout.Adjustments.Item(l):=-0.1; // Горизонтальное смещение
Callout.Adjustments.Item(2):=2; // Вертикальное смещение
end;
На рис. 13.20 показано, как стала выглядеть выноска, после того как она
была создана, а затем были изменены ее координаты конца линии-
указателя и заливка (при создании заливка имеет свойства "по умолчанию"),
при этом использовались общие для объектов Shapes методы и свойства,
описанные ранее.
Рис. 13.20. Использование рисунка в качестве фона |
Главная
Каталог файлов
