スキルアップ・問題解決なら、モーグにおまかせ！

●詳細●
コマンドボタンには、文字列だけではなく、図を表示する事もできます。
サンプルプロシージャは、コマンドボタンの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メソッドは、コントロールに含まれるテキストまたはイメージに合わせてコントロールのサイズを変更します。