ITabHyperlink.Text

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Rep: IPrxReport;
    Tab: ITabSheet;
    Range: ITabRange;
    Hyperlink: ITabHyperlink;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("Reg_rep").Edit;
    Rep := MObj As IPrxReport;
    Tab := Rep.ActiveSheet.Table;
    Range := Tab.Cell(0, 0);
    Hyperlink := Range.Style.Hyperlink;
    Hyperlink.Action := "=Лист2";
    Hyperlink.Enable := TriState.OnOption;
    Hyperlink.SeparateLinkText := TriState.OnOption;
    Hyperlink.Text := "Goto_List2";
    MObj.Save;
End Sub UserProc;