こんな感じでAutoOpenとAutoCloseに記載すると、ツールバーが作れますよ。
'****************************************************************************
'* フォーマット作成 Auto_Open
'****************************************************************************
Sub Auto_Open()
' ==============================================================================
' ファイルオープン時の設定
' ------------------------------------------------------------------------------
Dim Btn As Object
Dim PopReFrm
' ツールバー設定
Set PopReFrm = Excel.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
PopReFrm.Tag = "ReFrm"
PopReFrm.Caption = "【ユーザー管理】"
'フォーマット作成
Set Btn = PopReFrm.Controls.Add(Type:=msoControlButton)
Btn.Caption = "【LDAP出力】"
Btn.OnAction = ThisWorkbook.Name & "!ModUserconv.MakeOpenLDAPFile"
Set Btn = PopReFrm.Controls.Add(Type:=msoControlButton)
Btn.Caption = "【Moodle出力】"
Btn.OnAction = ThisWorkbook.Name & "!ModMoodleUser.moodleUserMake"
Set Btn = PopReFrm.Controls.Add(Type:=msoControlButton)
Btn.Caption = "【Pass作成】"
Btn.OnAction = ThisWorkbook.Name & "!ModPassMake.passMake"
Btn.FaceId = 0
End Sub
'****************************************************************************
'* フォーマット作成 Auto_Close
'****************************************************************************
Sub Auto_Close()
' ==============================================================================
' ファイルクローズ時の設定
' ------------------------------------------------------------------------------
Excel.CommandBars("Worksheet Menu Bar").FindControl(Type:=msoControlPopup, Tag:="ReFrm").Delete
End Sub
'****************************************************************************
'* フォーマット作成 Auto_Open
'****************************************************************************
Sub Auto_Open()
' ==============================================================================
' ファイルオープン時の設定
' ------------------------------------------------------------------------------
Dim Btn As Object
Dim PopReFrm
' ツールバー設定
Set PopReFrm = Excel.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
PopReFrm.Tag = "ReFrm"
PopReFrm.Caption = "【ユーザー管理】"
'フォーマット作成
Set Btn = PopReFrm.Controls.Add(Type:=msoControlButton)
Btn.Caption = "【LDAP出力】"
Btn.OnAction = ThisWorkbook.Name & "!ModUserconv.MakeOpenLDAPFile"
Set Btn = PopReFrm.Controls.Add(Type:=msoControlButton)
Btn.Caption = "【Moodle出力】"
Btn.OnAction = ThisWorkbook.Name & "!ModMoodleUser.moodleUserMake"
Set Btn = PopReFrm.Controls.Add(Type:=msoControlButton)
Btn.Caption = "【Pass作成】"
Btn.OnAction = ThisWorkbook.Name & "!ModPassMake.passMake"
Btn.FaceId = 0
End Sub
'****************************************************************************
'* フォーマット作成 Auto_Close
'****************************************************************************
Sub Auto_Close()
' ==============================================================================
' ファイルクローズ時の設定
' ------------------------------------------------------------------------------
Excel.CommandBars("Worksheet Menu Bar").FindControl(Type:=msoControlPopup, Tag:="ReFrm").Delete
End Sub
我が家のわんこをぽちっ♪とねっ(別ウインドウで開きますよ~)
にほんブログ村