Rng(RowNum, 5) = UserObject.Properties("SI_USERFULLNAME") 'Rng(RowNum, 5) = UserObject.Properties("SI_KIND") Rng(RowNum, 4) = UserObject.Properties("SI_NAME") Set Users = iStore.Query("SELECT SI_NAME,SI_KIND, SI_USERFULLNAME FROM ci_systemobjects WHERE descendants(""si_name='Usergroup-User'"", ""si_name ='" & SIName & "'"") AND SI_KIND='User' ") SIName = GroupObject.Properties("SI_NAME") Rng(RowNum, 3) = GroupObject.Properties("SI_NAME") Set Groups = iStore.Query("SELECT SI_ID, SI_NAME FROM CI_SYSTEMOBJECTS Where SI_KIND='UserGroup' order by SI_NAME")
Set iStore = esession.Service("", "InfoStore") Set esession = SessionManager.Logon("Administrator", "Password", "CMS", "secEnterprise") Set SessionManager = CreateObject("CrystalEnterprise.SessionMgr") 'Updated, added all references for BI4 assemblies, Ferdie_CienD. Now I need to link Universes and its corresponding Groups, so that I can combine the above two. So far, I was able to create the followingĢ.Connection and corresponding universes. The images below show the results for different document themes (the workbook is opened in Microsoft® Excel®).Any help on this topic is really apprecaiated.Ĭonnections -> Corrsponding Universes -> Corresponding Groups -> Users in the Group -> Folders -> Reports in the folder. ' Apply the themed formatting to the cell using one of the predefined accent colors.Ĭell.Formatting = XlCellFormatting.Themed(themeColors(i), 0.0) Using(IXlSheet sheet = document.CreateSheet()) ", i + 1) To apply theme formatting settings to a cell, pass the XlCellFormatting object returned by the XlCellFormatting.Themed method to the IXlCell.ApplyFormatting method as a parameter, or assign it to the IXlCell.Formatting property. The font color depends on the cell background color: if the background color is dark or saturated (the tint value is less than 0.5), the font color will be set to the XlThemeColor.Light1 theme color and if the background color is light (the tint value is greater than or equal to 0.5), the XlThemeColor.Dark1 font color will be used. The XlCellFormatting.Themed method automatically sets the cell font to the body font of the current document theme (that is Calibri, 11 for Office themes).
Api vba rng.cells() full#
The zero value corresponds to the original color used at full strength. 1.0 means darken 100% (black) and 1.0 means lighten 100% (white). A tint value between -1.0 and 1.0 used to darken (negative values) or lighten (positive values) the original theme color.These colors are defined by the current document theme and change when another theme is applied to a workbook.
Use the Excel Export API to Apply Themed Formatting to a CellĮxcel Export Library provides the capability to change the appearance of worksheet cells using formatting settings that are based on the current document theme.
0 kommentar(er)
