Prev: Basic question
Next: ChangeLink Command Not Working
From: Ron Coderre on 29 Dec 2005 12:32 Thanks for the feedback....I'm glad I could help. *********** Regards, Ron XL2002, WinXP-Pro "Nigel" wrote: > aaaaaaaaaaah, to much eggnog > > Thanks > > Have a Happy New Year and enjopy your time off > > Nigel > > "Ron Coderre" wrote: > > > That functionality is in what I posted.... > > This statement sets the drill down option for the workbook to "next level" > > > > EssSetSheetOption "Sample.xls",1,1 > > > > > Item Option Expected Data Type > > > ---- -------------------------------------- ------------------ > > > '1 Specify drill level setting Number > > > ' 1 Next level > > > ' 2 All levels > > > ' 3 Bottom level > > > ' 4 Sibling level > > > ' 5 Same level > > > ' 6 Same generation > > > ' 7 Calc level > > > > (Note: Since I'm not at work today, I can't test it.) > > > > Does that help? > > > > *********** > > Regards, > > Ron > > > > XL2002, WinXP-Pro > > > > > > "Nigel" wrote: > > > > > thanks, > > > > > > on the code tho, I am trying to set the global options to set the zoom level > > > to next and not all members > > > > > > "Ron Coderre" wrote: > > > > > > > I'm pretty sure you should use the EssVSetSheetOption function. I've included > > > > the declaration and the item/option settings for you: > > > > > > > > Declare Function EssVSetSheetOption Lib "ESSEXCLN.XLL" (ByVal sheetName As > > > > Variant, ByVal item As Variant, ByVal sheetOption As Variant) As Long > > > > > > > > Item Option Expected Data Type > > > > ---- -------------------------------------- ------------------ > > > > '1 Specify drill level setting Number > > > > ' 1 Next level > > > > ' 2 All levels > > > > ' 3 Bottom level > > > > ' 4 Sibling level > > > > ' 5 Same level > > > > ' 6 Same generation > > > > ' 7 Calc level > > > > '2 Enable Include-selection setting Boolean > > > > '3 Enable Within Selection Group setting Boolean > > > > '4 Enable Remove Unselected Group setting Boolean > > > > '5 Specify Indent setting Number > > > > ' 1 No indentation > > > > ' 2 Indent sub items > > > > ' 3 Indent totals > > > > '6 Enable suppress missing setting Boolean > > > > '7 Enable suppress zeros setting Boolean > > > > '8 Enable suppress underscores setting Boolean > > > > '9 Specify alias for missing text Text > > > > '10 Enable update mode setting Boolean > > > > '11 Enable Retain formula on Retrieval Boolean > > > > '12 Enable adjust columns setting Boolean > > > > '13 Enable alias names setting Boolean > > > > '14 Specify alias names table setting Text > > > > '15 Enable template retrieve mode Boolean > > > > '16 Enable free form/Version-2.x mode Boolean > > > > '17 Eable auto sort rows setting Boolean > > > > '18 Enable use styles Boolean > > > > '19 Specify No Access label Text > > > > '20 (Not Used) > > > > '21 Retain formula on Keep/Remove Only Boolean > > > > '22 Enable Retain formula on Zooms Boolean > > > > '23 Enable Formula Fill setting Boolean > > > > '24 Enable Both Member Name and Alias Boolean > > > > '25 Enable Repeat Member Labels setting Boolean > > > > '26 Enable Sheet Query Designer Option Boolean > > > > '27 Enable Latest Time Period Boolean > > > > '28 Specify Latest Time Period Text > > > > > > > > I hope that helps? > > > > > > > > *********** > > > > Regards, > > > > Ron > > > > > > > > XL2002, WinXP-Pro > > > > > > > > > > > > "Nigel" wrote: > > > > > > > > > Hopefully someone can answer this question > > > > > > > > > > I have declatred some functions in a module and one of these statements is > > > > > > > > > > Declare Function EssVSetGlobalOption Lib "ESSEXCLN.XLL" (ByVal Item As Long, > > > > > ByVal globalOption As Variant) As Long > > > > > > > > > > I want to set the zoom option in essbase to next level (which is the first > > > > > option on the zoom tab), and am not sure how to do this, any help would be > > > > > appreciated > > > > > > > > > > I am not sure of the format using the EssVSetGlobalOption Function > > > > > > > > > > Thanks, > > > > > > > > > > If you wish to discuss by phone, email me number to call at nigelben(a)yahoo.com |