wagnet
05-11-2006, 03:55 PM
My AddinInstall() isn't executing when I install the AddIn.
There are two modules. Module2 contains the SCQFormOld macro. Module1 is below.
Any ideas why the AddinInstall isn't creating the ToolBar when the Addin is installed? While in VBA, I can execute Workbook_AddinInstall() and it builds the ToolBar.
Private Sub Workbook_AddinInstall()
Application.CommandBars.Add(Name:="SCQForm").Visible = True
With Application.CommandBars("SCQForm").Controls.Add
.FaceId = 364
.Tag = "SCQ Form V2"
.Caption = "SCQ Form V2 -> OSum V1"
.OnAction = "SCQFormOld"
End With
Application.StatusBar = "Addin Successful. SCQForm Toolbar now available."
End Sub
Private Sub Workbook_AddinUninstall()
For Each bar In Application.CommandBars
If Not bar.BuiltIn And bar.Name = "SCQForm" Then bar.Delete
Next
End Sub
Edited by GeekGirlau 12-May-06. Reason: insert vba tags
There are two modules. Module2 contains the SCQFormOld macro. Module1 is below.
Any ideas why the AddinInstall isn't creating the ToolBar when the Addin is installed? While in VBA, I can execute Workbook_AddinInstall() and it builds the ToolBar.
Private Sub Workbook_AddinInstall()
Application.CommandBars.Add(Name:="SCQForm").Visible = True
With Application.CommandBars("SCQForm").Controls.Add
.FaceId = 364
.Tag = "SCQ Form V2"
.Caption = "SCQ Form V2 -> OSum V1"
.OnAction = "SCQFormOld"
End With
Application.StatusBar = "Addin Successful. SCQForm Toolbar now available."
End Sub
Private Sub Workbook_AddinUninstall()
For Each bar In Application.CommandBars
If Not bar.BuiltIn And bar.Name = "SCQForm" Then bar.Delete
Next
End Sub
Edited by GeekGirlau 12-May-06. Reason: insert vba tags