Sub MyShapeByVal(myValue As String)
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  Rem オートシェイプ設定値 引き渡し処理
  Rem 作譜：Hitrock Camellia Shinopy
  Rem 言語：Excel VBA
  Rem 機能...
  Rem   オートシェイプの設定値を、コマンドボタンのポップヒントを介して、
  Rem   他のプロシージャに引き渡す。
  Rem 注記...
  Rem   1. 手作業で、オートシェイプを右クリックして[マクロの登録...]に下記を入力。
  Rem     マクロの指定は、単一引用符で囲んで入力する。引数は、引用符で囲む。
  Rem     モジュール名の指定が必要な場合がある。
  Rem     例：引数に「222」を設定する例。
  Rem     「PERSONAL.XLS!'MyShapeByVal "222"'」
  Rem      あるいは
  Rem     「PERSONAL.XLS!'MyShapeByVal.MyShapeByVal "222"'」
  Rem   2. オートシェイプをクリックして実行。
  Rem 履歴...
  Rem   第01版：2007/02/26：作成。
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  '
  MsgBox "引数は[" & myValue & "]"
End Sub ' MyShapeByVal *----*----*    *----*----*    *----*----*    *----*----*
inserted by FC2 system