プロが教える店舗&オフィスのセキュリティ対策術

Windows-xp、Access2003を使っています。
コードを書くのは苦手です。
欲張りですが、2つ質問です。

フォーム上に、テキストボックス「ファイル名」があります。
<縦書き><72フォント>で設定してあります。
質問1.「ファイル名」の文字数が、10文字以上の場合<48フォント>の書式。
9文字以内であれば通常<72フォント>の書式。
ということはできませんか?

質問2.文字の位置ですが、どうしても一番右端に寄ってしまいます。
テキストボックスの中央に表示されるにはどうしたらよいでしょうか?
エクセルのイメージで言うと、”セルの書式設定”の”配置”で横位置が<中央揃え>、縦位置が<上詰め>という状態にしたいです。

質問1と2を合わせて解決して頂けたら嬉しいです。
コードやマクロや関数でもよいです。
わかりやすく教えてくだされば・・・
すみませんが、宜しくお願い致します。

A 回答 (1件)

サンプルです。


フォームのモジュールに貼り付けてください。
エクセルと違い、「右余白(RightMargin)」プロパティで配置を制御します。
VBA では 単位は twip で、 1cm = 567twipです。
下記の RightMargin の数値は適当に変更してテストし
最適な値を見つけてください。

--------------------------------------------------
Option Explicit

Private Sub Form_Current()
  Call ChangeFormat
End Sub

Private Sub ファイル名_AfterUpdate()
  Call ChangeFormat
End Sub

Private Sub ChangeFormat()
  If Len(Me.ファイル名) > 9 Or IsNull(Me.ファイル名) Then
    Me.ファイル名.FontSize = 48
    Me.ファイル名.RightMargin = 284
  Else
    Me.ファイル名.FontSize = 72
    Me.ファイル名.RightMargin = 0
  End If
End Sub

この回答への補足

フォームのモジュールとはどこでしょう??
お手数おかけしてすみません。。。宜しくお願い致します。

補足日時:2006/10/27 17:08
    • good
    • 0
この回答へのお礼

お手数をおかけしてすみません。
いろいろやってたら、できました!!
勉強になりました。
ありがとうございました!!

お礼日時:2006/10/27 17:17

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!