Excel2003 カレンダーコントロール

質問

お世話になっております。

シートにプログラムを書いているのですが、
カレンダーコントロールも使いたく思い、
配置してみました。
<挿入>⇒<オブジェクト>⇒<Microsoft カレンダーコントロール 11.0>

2点、分からないので教えて欲しいのです。
　●　シートに挿入したカレンダーコントロールオブジェクトは
　　　　UserFormのように任意の位置に表示できないのか。

　●　使わないときは非表示などにできるのか。

できることなら、UserFormにカレンダーコントロールを入れ
それを表示させているように、シートに表示させたいと思っております。

以上、よろしくお願い致します。

回答No.1

WindFaller · ベストアンサー

こんにちは。
お久しぶりです。

Excel　2010で、カレンダーコントロールが使えるかどうか、確認をするために、
そのままになっていましたが、先ほど、目処が立ちました。

以下は、あくまでもサンプルで、移動や非表示の参考になるはずです。
コードは、シートモジュールへの貼り付けでお願いします。

'(1)　クリックした場所に移動します。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　With Target
　　Calendar1.Top = .Top
　　Calendar1.Left = .Left
　End With
End Sub

'(2)コマンドボタン(ActiveX コントロール)--ボタン仕様はトグルです。
Private Sub CommandButton1_Click()
　Calendar1.Visible = Not Calendar1.Visible
End Sub

お礼

回答ありがとうございます。
こんにちは、お久しぶりです。
お世話になっております。

移動方法は分かりました！
ありがとうございました！