abap 添加alv上的工具栏的按钮_EXCEL LESSON14 自定义功能区菜单及工具栏(3/3)

不能上链接，带附件的，微信公众号，搜【财会人nAzy】，同课程内有链接地址。

———————————————

承前自定义功能区菜单及工具栏(2/3)，上回书说到自定义工具栏。

4. 自定义工具栏

1. 打开一个新的表格文件，另存为【Excel加载宏(*.xlam)】or【Excel 97-2003加载宏(*.xla)】

2. 添加【模块】，复制下面代码到模块内。

Auto_Open顾名思义，以后用来自动运行的，myButton跟myG是定义按钮及组的，目前的功能区按钮跟组的界限也不是很明显，CreateLineStyleButton的参数较多，分别是按钮所在的工具栏、鼠标悬停显示的注释、按钮在工具栏的位置、调用的宏名称、使用图标序号。

3. Arial9就是一个规范字体的宏范例，具体的不多讲，在Auto_Open位置按F5即可见工具栏添加至【加载项】了，试试看。

Private Sub Auto_Open()

CreateLineStyleButton

End Sub

Private Sub myButton(myCmd As String, myname As String, _

mynum As Integer, mycom As String, mid As Integer)

On Error Resume Next

Set newButton = Application.CommandBars(myCmd).Controls.Add( _

Type:=msoControlButton, Before:=mynum)

With newButton

.Style = msoButtonIcon

.Width = 30

.BeginGroup = False

.Caption = myname

.OnAction = mycom

.FaceId = mid

End With

End Sub

Private Sub MyG(myCmd As String, myname As String, _

mynum As Integer, mycom As String, mid As Integer)

On Error Resume Next

Set NewG = Application.CommandBars(myCmd).Controls.Add( _

Type:=msoControlButton, Before:=mynum)

With NewG

.BeginGroup = True

.Style = msoButtonIcon

.Width = 30

.Caption = myname

.OnAction = mycom

.FaceId = mid

End With

End Sub

Private Sub CreateLineStyleButton()

On Error Resume Next

Dim mynum As Integer, myname As String, mycom As String, mid As Integer

Dim myPosition As Variant

myPosition = msoBarTop

Application.CommandBars("nAzyLineStyle").Delete

Application.CommandBars.Add(Name:="nAzyLineStyle