Sub CreateMenubar()
Dim iCtr As Long
Dim iconNames As Variant
Dim iconCaptions As Variant
Dim iconTipText As Variant
Dim listNames As Variant
Dim listCaptions As Variant
Dim listTipText As Variant
Dim iconEnabled As Variant
Dim listEnabled As Variant
Dim toolbarX As Integer
Dim toolbarY As Integer
Dim toolbarPosition As String
Dim temp As CommandBarControl
On Error Resume Next
toolbarX = Application.CommandBars("AMANDA Worksheet V1.0").Left
toolbarY = Application.CommandBars("AMANDA Worksheet V1.0").Top
toolbarPosition = Application.CommandBars("AMANDA Worksheet V1.0").Position
Call RemoveMenubar
iconNames = Array("Insert", "Delete", "NewBlock", "DeleteBlock", "Clear", "Copy", "Paste", "CopyToAMANDA", "PasteFromAMANDA")
iconCaptions = Array("Insert Row(s)", "Delete Row(s)", "Insert Block", "Delete Block", "Clear Row(s)", "Copy Row(s)", "Paste Row(s)", "Copy Row(s) To AMANDA", "Paste Row(s) From AMANDA")
If ActiveSheet.CodeName = "home" Or ActiveSheet.CodeName = "deficiencyChangeNotes" Or ActiveSheet.CodeName = "folderChangeNotes" Or ActiveSheet.CodeName = "processChangeNotes" Or ActiveSheet.CodeName = "mergedNames" Or ActiveSheet.CodeName = "staticNames" Or ActiveSheet.CodeName = "paster" Then
iconEnabled = Array("no", "no", "no", "no", "no", "no", "no", "no", "no")
Else
iconEnabled = Array("yes", "yes", "no", "no", "yes", "yes", "yes", "yes", "yes")
End If
If ActiveWorkbook.CodeName = "validsTemplate" Then
listNames = Array("Access", "Deficiency", "Folder", "People", "Process", "System", "Stat")
listCaptions = Array("Access", "Deficiency", "Folder", "People", "Process", "System", "Stat")
End If
With Application.CommandBars.Add
.Name = "AMANDA Worksheet V1.0"
.Left = toolbarX
.Top = toolbarY
.Protection = msoBarNoProtection
.Visible = True
.Position = toolbarPosition
For iCtr = LBound(iconNames) To UBound(iconNames)
With .Controls.Add(Type:=msoControlButton)
If iconEnabled(iCtr) = "yes" Then
.OnAction = "toolbar" & iconNames(iCtr)
.Caption = iconCaptions(iCtr)
.Style = msoButtonIcon
.Picture = LoadPicture("C:\CSDC\worksheeticons\" & iconNames(iCtr) & ".bmp")
.Mask = LoadPicture("C:\CSDC\worksheeticons\" & iconNames(iCtr) & "mask.bmp")
Else
.Caption = iconCaptions(iCtr)
.Style = msoButtonIcon
.Picture = LoadPicture("C:\CSDC\worksheeticons\" & iconNames(iCtr) & "bw.bmp")
.Mask = LoadPicture("C:\CSDC\worksheeticons\" & iconNames(iCtr) & "mask.bmp")
End If
End With
Next iCtr
Set temp = .Controls.Add(Type:=msoControlPopup)
temp.Caption = "Valids"
For iCtr = LBound(listNames) To UBound(listNames)
With temp.Controls.Add(Type:=msoControlButton)
.OnAction = "toolbarSwitchTo" & listNames(iCtr)
.Caption = listCaptions(iCtr)
.ID = iCtr
End With
Next iCtr
End With
End Sub
Bookmarks