ник: Гоблин
Масса замечательных вещей. С места сдвинулось. Сократил код получилось
With Me.Controls("frm2")
.SetFocus
CommandBars("Form View Control").ShowPopup
End With
Получаю контекстное меню как для элемента обычной формы. Можно было бы поставить на элемент формы на 2 щелчка к примеру. Однако активны только копировать и вырезать. (скриншот прилагаю)
Если писать
With Me.Controls("frm2")
.SetFocus
CommandBars("PivotTable Popup").ShowPopup
End With
В этом случае из кнопки вылезает всего 2 строки "Копировать" и "Сортировка" Причем сортировка не активна.