Need help for creating Help File in Excel

S

sunil31

Thanks Frank. I have created help file using HTML Help Worksho
program. But How can I use or attach this file in excel? I am no
able to use or attach the file in my program.

Thanks

suni
 
F

Frank Kabel

Hi
attached some code (put this in a new module):
Option Explicit
Declare Function HtmlHelp Lib "hhctrl.ocx" _
Alias "HtmlHelpA" _
(ByVal hwnd As Long, _
ByVal lpHelpFile As String, _
ByVal wCommand As Long, _
ByVal dwData As Long) As Long

Const HH_DISPLAY_TOPIC = &H0
Const HH_SET_WIN_TYPE = &H4
Const HH_GET_WIN_TYPE = &H5
Const HH_GET_WIN_HANDLE = &H6
Const HH_DISPLAY_TEXT_POPUP = &HE ' Display string resource ID or text in
a pop-up window.
Const HH_HELP_CONTEXT = &HF ' Display mapped numeric value in dwData.
Const HH_TP_HELP_CONTEXTMENU = &H10 ' Text pop-up help, similar to
WinHelp's HELP_CONTEXTMENU.
Const HH_TP_HELP_WM_HELP = &H11 ' text pop-up help, similar to WinHelp's
HELP_WM_HELP.


'---------------------------------------------------------------------------
Public Sub MyOpenHelp(ByVal ContextId As Long)
'---------------------------------------------------------------------------
' Function: Opens the HTML help file
'---------------------------------------------------------------------------

Dim hwndHelp As Long
'The return value is the window handle of the created help window.
Dim hwndHH
hwndHH = HtmlHelp(0, ThisWorkbook.Path & "\" & AppTitleId & ".chm",
HH_HELP_CONTEXT, ContextId)
End Sub

'---------------------------------------------------------------------------
Public Sub StartHelp()
'---------------------------------------------------------------------------

MyShowHelp 1000
End Sub
 
Top