【Excel】エクセルのユーザーフォームのラベルを垂直中央表示にする

エクセルのユーザーフォームを作ってみました。
今まで、エクセルのユーザーフォームは殆どやったことがなくて、Accessのフォームになれてしまった私としては、かなり使い勝手が悪いです。プロパティは英語だし、必要なプロパティも少ないからです。

ラベルの文字位置もAccessだったら簡単に調整できるけど、ユーザーフォームだとプロパティを駆使しても上手く垂直方向を中央にできなくて、なんか結構カッコ悪いのです。そこで思いついたって程じゃないけど代案を考えました！

ラベルの重ね合わせです！

実際のラベルは２枚です。背景用と文字用の２つのラベルを使用します。
文字用のラベルは、枠線をなしにします。

標準モジュールに

Sub Auto_Open()
    frmメニュー.Show
End Sub

と書くとエクセル起動時にメニューが起動されます。
更にフォームに

' エクセル本体を非表示にする
Private Sub UserForm_Initialize()
    Application.Visible = False
End Sub

' エクセル本体を表示する
Private Sub UserForm_Terminate()
Application.Visible = True
End Sub

を追加すると、ワークシートが非表示になります。

閉じるイベントでは

Private Sub cmd終了_Click()
    Unload Me
End Sub

とすることで終了します。
accessなら右クリックでデザインモードにできますが
そういうのもろもろできないです。

後は、普通にワークシートをテーブルと見立ててどこまで出来るか検証していきたいと思います。

トランザクションや共有を考えるとやっぱりデータは別だしがベストかなと思います。
とりあえず検証ということで。

後は、色、色を自由に変更できないなぁと思いました。
カラーパレットが少ない。自分でカスタマイズできない。それが残念。

色これだけ・・・カスタマイズができない？！

関連記事:

コメント