ITabHyperlink.ActionType

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

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