コマンドボタンには、文字列だけではなく、図を表示する事もできます。
　サンプルプロシージャは、コマンドボタンのPictureプロパティにビットマップファイルを
設定して、コマンドボタンに図を表示しています。

　また、何曜日かを表す値を返すWeekday関数と現在のシステムの日付を返すDate関数を
使って、曜日によって表示する図を変化させています。

● 準備 ●

　標準モジュールに次のサンプルプロシージャを作成してください。
　フォーム「フォーム1」にコマンドボタン「コマンド0」を配置してください。

● サンプル　●

Sub Sample()

    DoCmd.OpenForm "フォーム1", acDesign
    
    Select Case Weekday(Date)
        Case 1
            Forms!フォーム1!コマンド0.Picture = "C:\サンプル\イルカ.bmp"
        Case 2
            Forms!フォーム1!コマンド0.Picture = "C:\サンプル\きつね.bmp"
        Case 3
            Forms!フォーム1!コマンド0.Picture = "C:\サンプル\シマウマ.bmp"
        Case 4
            Forms!フォーム1!コマンド0.Picture = "C:\サンプル\かもめ.bmp"
        Case 5
            Forms!フォーム1!コマンド0.Picture = "C:\サンプル\ヒョウ.bmp"
        Case 6
            Forms!フォーム1!コマンド0.Picture = "C:\サンプル\エルモ.bmp"
        Case 7
            Forms!フォーム1!コマンド0.Picture = "C:\サンプル\バート.bmp"
    End Select
       
    Forms!フォーム1!コマンド0.SizeToFit

    DoCmd.Restore

    DoCmd.OpenForm "フォーム1"
    
    MsgBox "今日のボタンの図です"
End Sub

● 補足説明 ●

　SizeToFitメソッドは、コントロールに含まれるテキストまたはイメージに合わせて
コントロールのサイズを変更します。