'Позиционирование к активному контролу заимствовано из календарика (с незначительными изменениями):
'*******************************************************************************************
' © Крук Валерий Николаевич, 2007
'   KrukVN
'*******************************************************************************************

Private Declare Function GetFocus Lib "User32" () As Long
Private Declare Function GetSystemMetrics Lib "User32" (ByVal nIndex As Long) As Long
Private Declare Function GetWindowRect Lib "User32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

Private Type Dimensions
    Width As Long
    Height As Long
End Type

Private Type RECT
    left As Long
    top As Long
    right As Long
    bottom As Long
End Type

Const SM_CXSCREEN =  0 
Const SM_CYSCREEN =  1 
Const SWP_NOACTIVATE = &H10

Public Sub Move(WindowName As String)' Сюда передать имя CommandBar
    Dim ctlDate As Control
    Dim hwnd As Long

        hwnd = FindWindow(vbNullString, WindowName)
        If hwnd =  0  Then Exit Sub
        
        'Перемещение к текущему элементу управления
        Set ctlDate = Screen.ActiveControl
        
        Dim ctlRect As RECT                 'Позиция контрола
        Dim frmDimensions As Dimensions     'Размеры формы
        Dim frmRect As RECT                 'Позиция формы
        Dim scrDimensions As Dimensions     'Размеры (разрешение) экрана

        'Определяем позицию текущего контрола
        GetWindowRect GetFocus(), ctlRect

        'Определяем позицию перемещаемой CommandBar
        GetWindowRect hwnd, frmRect
        frmDimensions.Width = frmRect.right - frmRect.left
        frmDimensions.Height = frmRect.bottom - frmRect.top

        'Текущие размеры (разрешение) экрана
        scrDimensions.Width = GetSystemMetrics(SM_CXSCREEN)
        scrDimensions.Height = GetSystemMetrics(SM_CYSCREEN)

        'Если CommandBar от левого края контрола умещается на правой стороне экрана, то...
        If frmDimensions.Width < scrDimensions.Width - ctlRect.left Then
             'левый край формы переместить к левому краю контрола
             frmRect.left = ctlRect.left -  1 
           Else
             'правый край CommandBar к правому краю контрола
             frmRect.left = ctlRect.right - frmDimensions.Width +  1 
        End If
        'Тоже для вертикального расположения
        If frmDimensions.Height < scrDimensions.Height - ctlRect.bottom Then
            frmRect.top = ctlRect.bottom +  2 
        Else
            frmRect.top = ctlRect.top - frmDimensions.Height -  2 
        End If
        'Перемещение в указанную позицию
        SetWindowPos hwnd,  0 , frmRect.left, frmRect.top, frmDimensions.Width, frmDimensions.Height, SWP_NOACTIVATE
End Sub