''' This project requires project references to
''' The Excel object library - e.g. Excel9.olb or Excel8.olb

Dim oXl As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRange As Excel.Range
Dim oAddIn As Excel.AddIn

'Launch Excel and make it visible
Set oXl = CreateObject("Excel.application")
oXl.Visible = True
Set oBook = oXl.Workbooks.Add
Set oSheet = oBook.Worksheets.Item(1)

' Add the Excel Analysis ToolPak library
oXl.AddIns.Add FileName:=oXl.LibraryPath & "\analysis\analys32.xll"
Set oAddIn = oXl.AddIns.Item("Analysis ToolPak")

' Register all the Analysis ToolPak functions
'  See Microsoft Knowledge Base Article 213489
oXl.RegisterXLL "Analys32.xll"

' Add the Excel Analysis ToolPak - VBA AddIn -
'  it's the Automation interface to the Analysis ToolPak library
' Now open the .xla so that you can run its Auto_Open macro now, and others later.
' See Microsoft Knowledge Base article 213489
oXl.Workbooks.Open oXl.LibraryPath & "\analysis\atpvbaen.xla"
oXl.Workbooks("atpvbaen.xla").RunAutoMacros 1

' Fill the worksheet with some data
' Create and fill the Input Range - See Microsoft Knowledge Base
' Article 141684 or 214269
Set oRange = oSheet.Cells(1, 1)
oRange.value = "87"
Set oRange = oSheet.Cells(2, 1)
oRange.value = "27"
Set oRange = oSheet.Cells(3, 1)
oRange.value = "45"
Set oRange = oSheet.Cells(4, 1)
oRange.value = "62"
Set oRange = oSheet.Cells(5, 1)
oRange.value = "3"
Set oRange = oSheet.Cells(6, 1)
oRange.value = "52"
Set oRange = oSheet.Cells(7, 1)
oRange.value = "20"
Set oRange = oSheet.Cells(8, 1)
oRange.value = "43"
Set oRange = oSheet.Cells(9, 1)
oRange.value = "74"
Set oRange = oSheet.Cells(10, 1)
oRange.value = "61"

' Create and populate the Bin Range
Set oRange = oSheet.Cells(1, 2)
oRange.value = "20"
Set oRange = oSheet.Cells(2, 2)
oRange.value = "40"
Set oRange = oSheet.Cells(3, 2)
oRange.value = "60"
Set oRange = oSheet.Cells(4, 2)
oRange.value = "80"

' Chart the Histogram on a new Worksheet
' See Microsoft Knowledge Base article 213489
oXl.Run "ATPVBAEN.XLA!Histogram", oXl.ActiveSheet.Range("$A$1:$A$10"), _
        "", oXl.ActiveSheet.Range("$B$1:$B$4"), _
        False, False, True, False ' True = Chart

'Clean up
Set oAddIn = Nothing
Set oRange = Nothing
Set oSheet = Nothing
Set oBook = Nothing
oXl.UserControl = True
    Set oXl = Nothing