めっちゃ困ってます

質問

ソフトを使おうとしたのですがいきなりつまづきました。１１行目の◎◎のところがまちがってる？という事らしいのですが、どなたかどうしたらなおるか教えていただけないでしょうか。

Sub MortalityMenu()

DeleteMort

Dim MortMenu As CommandBarControl
Dim MainMenu As CommandBar
Dim SecondMenu As CommandBarControl
Dim HelpIndex As Integer
Dim NewButton As CommandBarControl
Dim IconSheet As Worksheet

'Set IconSheet = Worksheets("Sheet5")
Set MainMenu = Application.CommandBars("Worksheet Menu Bar")
◎HelpIndex = MainMenu.Controls("Help").Index◎

Set MortMenu = MainMenu.Controls.Add(Type:=msoControlPopup, _
Before:=HelpIndex)
MortMenu.Caption = "&Mortality"

Set SecondMenu = MortMenu.Controls.Add(Type:=msoControlPopup)
SecondMenu.Caption = "&P-spline"

Set NewButton = SecondMenu.Controls.Add(Type:=msoControlButton)
With NewButton
.Caption = "Fit Model"
.Style = msoButtonIconAndCaption
.OnAction = "Graduation.RunPS"
End With

Set NewButton = SecondMenu.Controls.Add(Type:=msoControlButton)
With NewButton
.Caption = "Generate Scenario"
.Style = msoButtonIconAndCaption
.OnAction = "Graduation.AddScenPS"
End With

Set SecondMenu = MortMenu.Controls.Add(Type:=msoControlPopup)
SecondMenu.Caption = "&Lee-Carter"

Set NewButton = SecondMenu.Controls.Add(Type:=msoControlButton)
With NewButton
.Caption = "Fit Model"
.Style = msoButtonIconAndCaption
.OnAction = "Graduation.RunLC"
End With

Set NewButton = SecondMenu.Controls.Add(Type:=msoControlButton)
With NewButton
.Caption = "Generate Scenario"
.Style = msoButtonIconAndCaption
.OnAction = "Graduation.RunLCProjection"
End With

' Set SecondMenu = MortMenu.Controls.Add(Type:=msoControlButton)
' SecondMenu.Caption = "&Add Mortality Data"
' SecondMenu.OnAction = "AddData.AddMortalitySheets"

Set SecondMenu = MortMenu.Controls.Add(Type:=msoControlButton)
SecondMenu.Caption = "&About CMI Software"
SecondMenu.OnAction = "Graduation.ShowAbout"

End Sub

Sub DeleteMort()

On Error Resume Next
CommandBars(1).Controls("Mortality").Delete

End Sub

回答No.1

keirika

HelpIndex = MainMenu.Controls("ヘルプ(H)").Index

でどうでしょうか。

EXCEL2003の日本語版を使用

お礼

解答ありがとうございます！

早速ためしてみたらＯＫでした！

ほんとうにありがとうございました☆