Start SmartVIew Addin with VBA

Question

Hi,
I need to activate the Addin of SmartView via VBA code from an Excel Worksheet.
So far I created a worksheet and added the module SmartViewVBA to the VBA-Project.
I wrote a program to start the addin:
Sub Open_SMARTVIEW()
AddIns.Add Filename:="C:\Oracle\SmartView\Bin\HsTbar.xla"
AddIns("Oracle Hyperion Smart View for Office, Fusion Edition").Installed = True
End Sub
This added the HSTbar.xla to my VBA-projects. I also got the tool bar activated by this.
In the extras / addins I see that the SmartView Addin is activated. Nevertheless all SmartView Buttons do not react when I click on them and I am missing the SmartView menu bar.
Has anybody an idea or hint, what needs to be done in addition?
Best regards,
Helge

Answer 1

Smart View is a com add-in so you cannot unload it this way you would need to use code to change the 'connect' state of the com add-in:
Function LoadSV(enable As Boolean)
Dim oAin As AddIn
Dim comAin As COMAddIn
For Each oAin In Application.AddIns
Debug.Print oAin.Name
If oAin.Name = "HsTbar.xla" Then
Debug.Print oAin.Installed
oAin.Installed = enable
End If
Next
For Each comAin In Application.COMAddIns
Debug.Print comAin.Description
If comAin.Description = "Oracle Hyperion Smart View for Office, Fusion Edition" Then
Debug.Print comAin.Connect
comAin.Connect = enable
End If
Next
End Function
This will vary based on your smart view version and OS. In fact in windows 7 you would need to be running Excel as an admin and this in unlikely. Is there some reason you are needing to unload SV in VBA?