| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 Display the available icons (FaceIds) for office commandbars \par \par The following code will create several toolbars containing all the icons available for use in office toolbars. \par \par 'Creates toolbars with 300 faces icons on each. \par Sub ShowAllToolbarIcons() \par Const clMaxFaceId As Long = 3900, clButtonsPerBar As Long = 300, clMaxToolbar As Long = 13 \par Dim lThisBar As Long, lFirstId As Long, lLastId As Long \par Dim lThisId As Long, oThisCtrl As CommandBarButton \par Dim oCmdBar As CommandBar, oClipIcon As StdPicture \par \par On Error GoTo ErrMaxID \par For lThisBar = 0 To clMaxToolbar \par 'Put 300 buttons on each bar \par lFirstId = lThisBar * clButtonsPerBar \par lLastId = lFirstId + clButtonsPerBar - 1 \par Set oCmdBar = CommandBars.Add \par For lThisId = lFirstId To lLastId \par Set oThisCtrl = oCmdBar.Controls.Add \par oThisCtrl.FaceId = lThisId \par oThisCtrl.TooltipText = "FaceId = " & lThisId \par Next \par oCmdBar.Name = ("Buttons with FaceIds " & CStr(lFirstId) & " to " & CStr(lLastId)) \par oCmdBar.Width = 591 \par oCmdBar.Visible = True \par Next \par \par Exit Sub \par \par 'Delete the button that caused the error and set toolbar name \par ErrMaxID: \par oThisCtrl.Delete \par oCmdBar.Name = ("Faces " & CStr(lFirstId) & " to " & CStr(lThisId - 1)) \par oCmdBar.Width = 591 \par oCmdBar.Visible = True \par End Sub \par } |
Display the available icons (FaceIds) for office c |
India web developer web development India | India web development company India ecommerce web developer