HypGetOption

HypGetOption() enables you to get Smart View options that are both default and sheet specific so you do not need separate VBAs for the two types of options.

HypGetOption (vtItem,vtRet,vtSheetName)

ByVal vtItem As Variant

ByRef vtRet As Variant

ByVal vtSheetName As Variant

vtItem:The index/constant to refer to a particular option. See Table 18.

vtRet: The output variable

vtSheetName: The sheet name of a sheet level option. If not provided, then the default option is used.

Returns 0 if successful; otherwise, returns the appropriate error code.

Public Declare Function HypGetOption Lib "HsAddin" (ByVal vtItem As Variant, ByRef vtRet As Variant, ByVal vtSheetName As Variant) As Long

Sub getOption()

sts = HypGetOption(HSV_ZOOMIN, Var, "Sheet2") ‘get zoom in option for sheet2
sts = HypGetOption(1, Var, "") ‘get default zoom in option

End Sub