Sub MyShowPopupUpperRange()
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  Rem 選択範囲上ショートカットメニュー表示処理
  Rem 作譜：Hitrock Camellia Shinopy
  Rem 言語：Word VBA
  Rem 機能...
  Rem   1. 選択範囲の上にショートカット メニューを表示する。
  Rem 注記...
  Rem   1.ショートカット メニューが (x, y) 座標に表示されると、
  Rem     その全部または一部が画面からはみ出す場合、
  Rem     ショートカット メニューは画面内に収まる位置にシフトされて表示されます。
  Rem 履歴...
  Rem   第01版：2009/03/01：作成。
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  Dim x As Long
  Dim y As Long
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  Rem 選択範囲の位置を取得する。
  x = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
  y = Selection.Information(wdVerticalPositionRelativeToTextBoundary)
  '
  x = (x - Application.Left) * 1.333 ' * 96 / 72
  y = (y - Application.Top) * 1.333
  '
  Rem 選択範囲の上にショートカット メニューを表示する。
  CommandBars("MyPopUp").ShowPopup x, y
End Sub ' MyShowPopupUpperRange *----*----*    *----*----*    *----*----*    *----*----*