2021年在Excel中创建自定义菜单并为菜单项指定宏.docVIP

在Excel 中创建自定义菜单并为菜单项指定宏 Excel 使用了新用户界面，每项功效全部在称作Ribbon功效区中且它们位置全部是固定，仅快速访问工具栏(QAT)和先前版本工具栏相同，可用来添加或删除命令。所以，在Excel 中创建自定义菜单并为菜单项指定宏不像在Excel 中那样轻易。本文汇总了John Walkenbach、John McLea和Ron de Bruin所介绍技术。　　- - - -技术基础　　—— 识别工具栏图像　　假如使用Excel 97或以后版本，您知道它使用部分图像在它内置菜单和工具栏中。您能够经过设置FaceID属性为一个特定整数在自定义菜单和工具栏中使用这些内置图像。然而，问题是怎样知道图像所对应整数。　　下面子过程创建了一个带有开始250个FaceID图像(见下图1所表示)自定义工具栏。创建了工具栏以后，将鼠标指针放在按钮上面来找到和图像对应FaceID值。但单击工具栏按钮不会产生任何效果，因为子过程没有在OnAction属性中分配任何宏。当然，您能够经过改变IDStart和IDStop值来看到更多图像，最终一个FaceID图像显示数字3518(也有部分空白图像)。[img] [/img] 图1：创建一个FaceID工具栏，当鼠标放在某图像上时将显示对应数字　　下面是子过程代码：Sub ShowFaceIDs()　　Dim NewToolbar As CommandBar　　Dim NewButton As CommandBarButton　　Dim i As Integer, IDStart As Integer, IDStop As Integer　　假如已存在FaceIds工具栏则删除　　On Error Resume Next　　Application.CommandBars(FaceIds).Delete　　On Error GoTo 0　　　添加一个空工具栏　　Set NewToolbar = Application.CommandBars.Add _　　　　(Name:=FaceIds, temporary:=True)　　NewToolbar.Visible = True　　　能够改变下面值来看到不一样FaceIDs　　IDStart = 1　　IDStop = 250　　　For i = IDStart To IDStop　　　　Set NewButton = NewToolbar.Controls.Add _　　　　　　(Type:=msoControlButton, ID:=2950)　　　　NewButton.FaceId = i　　　　NewButton.Caption = FaceID = i　　Next i　　NewToolbar.Width = 600End Sub　　另外，也能够使用VBA代码在工作表中列出全部FaceID图像和相对应整数。该代码由John D. McLean编写，代码清单以下：在工作表中显示全部工具栏按钮图像/图标，由36行100列组成对应最左/右列和最顶/底行中数字相加即为该图标号Sub DisplayButtonFacesInGrid()　　Const cbName = JDMTestToolBar　　Dim cBar As CommandBar, cBut As CommandBarControl　　Dim r As Long, c As Integer, count As Integer　　Application.StatusBar = Creating Button FaceIDs .......　　Workbooks.Add　　创建四面数字　　For r = 0 To 35　　　Cells(r + 2, 1).Value = 100 * r: Cells(r + 2, 102).Value = 100 * r　　Next r　　For c = 0 To 99　　　Cells(1, c + 2).Value = c: Cells(38, c + 2).Value = c　　Next c　　Range(A1:A38).Select　　With Selection　　　.Font.Bold = True　　　.HorizontalAlignment = xlCenter　　　.VerticalAlignment = xlCenter　　End With　　Range(CX1:CX38).Select　　With Selection　　　.Font.Bold = True　　　.HorizontalAlignme