Solved: Activate the Add-In Screen with VBA

[Shred Dude]

Can someone point me down the right path to be able to activate the ADD-In screen with VBA. I simply want to be able to pop up the Add In screen with one routine so as to avoid the multiple mouse clicks of (in Excel 2007)..

Office Button>Excel Options>Add-Ins>Go...(after making sure Excel Add INs is in the Manage: box)

This produces the Add-Ins window with the list of available Add-Ins.

Perhaps an API that I can use to trigger that window?

[Kenneth Hobs]

Application.Dialogs.Item(xlDialogAddinManager).Show

[Shred Dude]

Awesome. Thank you.

Looks like I need to familiarize myself with that XlBuiltInDialog Enumeration.

[Bob Phillips]

SendKeys "%TM"

[Shred Dude]

Thanks XLD.

I found that the dialogs.show method fails if there is no activeworkbook, so I wrapped it as follows:

If Not ActiveWorkbook Is Nothing Then
Application.Dialogs.Item(xlDialogAddinManager).Show
End If

I added a button to my Quick Access Toolbar using that code from my Personal macros file. Maybe I'll have it add a workbook if there's not one...

Just a convenience thing for me.

[visible2you]

SendKeys "%TM"



Hi,

I tried it. I think it did not work.


Private Sub Workbook_Open()
'Application.Dialogs.Item(xlDialogAddinManager).Show
ThisWorkbook.Worksheets(1).Activate
Application.SendKeys ("%tmsm~")
Application.SendKeys ("%{F11}")
'SendKeys "%TI"
End Sub

[Shred Dude]

The send keys %TM does not pull up the Add-In manager. The show dialog code shown above does.