Knop in menu bar doet het niet

[H.Weenink]

Wie weet er wat er fout gaat bij de volgende code om een menu knop in de menu balk te verkrijgen waarmee ik dan een userform oproep. ik krijg da de volgende foutmelding " de typen komen niet met elkaar overeen"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar") _
.Controls("Print Report").Delete
End Sub

Private Sub Workbook_Open()
Dim myButton As CommandButton
Set myButton = _
Application.CommandBars("Worksheet Menu Bar").Controls.Add
myButton.Caption = "&Print Report"
myButton.Style = msoButtonCaption
myButton.BeginGroup = True
myButton.OnAction = "ShowForm"

End Sub[/SIZE]

 

[Axel Hagg]

Dag H. Weenink,

Public Sub Workbook_Open()
Dim myButton As Object

Set myButton = Application.CommandBars("Worksheet Menu Bar").Controls.Add
myButton.Caption = "&Print Report"
myButton.Style = msoButtonCaption
myButton.BeginGroup = True
myButton.OnAction = "ShowForm"
Set myButton = Nothing
End Sub

Succes,

Axel

 

[H.Weenink]

geen tekst in de knop

Dag H. Weenink,

Public Sub Workbook_Open()
Dim myButton As Object

Set myButton = Application.CommandBars("Worksheet Menu Bar").Controls.Add
myButton.Caption = "&Print Report"
myButton.Style = msoButtonCaption
myButton.BeginGroup = True
myButton.OnAction = "ShowForm"
Set myButton = Nothing
End Sub

Succes,

Axel

Beste Axcel, prachtig werk............de button is er maar..... er staat geen tekst in de button nu kan ik dat in =>aanpassen =>selectie wijzigen ..wel toevoegen, maar wanneer ik het bestand weer sluit heb ik het zo gemaakt dat de knop ook weer verdwijnt. Als ik het bestand dan weer opstart is de tekst weer weg enz. en die moet er dan wel weer instaan
weet jij hier ook een oplossing voor.

bvd Hans

 

[Axel Hagg]

Dag H. Weenink,

Vreemd, bij staat er Print report op de knop.

Overigens moet je de knop bij het sluiten eerst verwijderen voor je opslaat, anders wordt de knop ook opgeslagen.

Succes,

Axel.