napisał: trzycenty postów: 4
umieszczony: 29 grudnia 2009 18:46
|
|
chcialbym utworzyc menu na wstazce dodatki, ktore pozwoli odpalic funkcje "Black_scholes", ktora sobie napisalem.
pisze cos takiego:
Sub Workbook_Open()
Dim cbWSMenuBar As CommandBar
Dim Ctrl, muCustom As CommandBarControl
Dim iHelpIndex As Integer
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("&New Menu").Delete
On Error GoTo 0
Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
iHelpIndex = cbWSMenuBar.Controls("Help").Index
Set muCustom = cbWSMenuBar.Controls.Add(Type:=msoControlPopup, _
before:=iHelpIndex, temporary:=True)
With muCustom
.Caption = "Moje Menu"
With .Controls.Add(Type:=msoControlButton)
.Caption = "black_scholes"
.OnAction = "black_scholes"
End With
End With
i problem jest przy odpaleniu skoroszytu: invalid procedure call or argument.
czy ktos wie co nalezy zmienic? |
|
wstecz 1 dalej wszystkich stron: 1
|