Sorry I could not answer earlier Art,
I'll find the module I used as soon as I can. In the meanwhile, it entails adding a Reference to the VBA Project, "Microsoft Office nn.0 Object Library" where nn is the version number of the installed Office Suite.
Then, in the Object Browser (F2) you will find the CommandBar* Classes. Note that the Ribbon is also (kind of) visible through the CommandBar Objects.
One of these Objects is CommandBarPopup.
A simple show:
Function CBPopupBarShow(strBarName As String) As Boolean
Dim cbrPopup As Office.CommandBar
On Error Resume Next
Set cbrPopup = Application.CommandBars(strBarName)
If cbrPopup.type <> msoBarTypePopup Then
CBPopupBarShow = False
Exit Function
End If
cbrPopup.ShowPopup
CBPopupBarShow = True
End Function
You can remove a commandbar, including a popup, you created with
Application.CommandBars(strCBarName).Delete
Adding a Popup CommandBar yould be
Dim cbrCmdBar As CommandBar
Set cbrCmdBar = Application.CommandBars.Add(Name:=strCBarName, Position:=msoBarPopup)
Don't worry about some of the syntax, such as "Position" here.
That's just the basics and once I find the original Module then I'll let you know.
__._,_.___
Posted by: yahoo@craven.de
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (4) |
Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.
.
__,_._,___
Tidak ada komentar:
Posting Komentar