ITabHyperlink.Apply

Синтаксис

Apply(Value: ITabHyperlink);

Параметры

Value — гиперссылка, параметры которой необходимо применить к текущей гиперссылке.

Описание

Метод Apply применяет параметры указанной гиперссылки к текущей.

Пример

Для выполнения примера предполагается наличие регламентного отчета с идентификатором «REGL_REP».

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

Rep: IPrxReport;

Tab: ITabSheet;

Range: ITabRange;

Hyperlink, Hyperlink1: ITabHyperlink;

Begin

MB := MetabaseClass.Active;

MObj := MB.ItemById("REGL_REP").Edit;

Rep := MObj As IPrxReport;

Tab := Rep.ActiveSheet.Table;

Range := Tab.Cell(0, 0);

Hyperlink := Range.Style.Hyperlink;

Hyperlink.Action := "=a0:b3";

Hyperlink.Enable := TriState.OnOption;

Hyperlink.SeparateLinkText := TriState.OnOption;

Hyperlink.Text := "Ссылка";

Range := Tab.Cell(1, 0);

Hyperlink1 := Range.Style.Hyperlink;

Hyperlink1.Apply(Hyperlink);

MObj.Save;

End Sub Main;

После выполнения примера, в ячейке «А0» регламентного отчета будет создана гиперссылка с текстом «Ссылка», при нажатии на которую будет осуществляться выделение диапазона «a0:b3». В ячейке «А1» будет создана гиперссылка, к которой будут применены параметры гиперссылки в ячейке «А0».

См. также:

ITabHyperlink