Windows-xp、Access2003を使っています。
コードを書くのは苦手です。
欲張りですが、2つ質問です。
フォーム上に、テキストボックス「ファイル名」があります。
<縦書き><72フォント>で設定してあります。
質問1.「ファイル名」の文字数が、10文字以上の場合<48フォント>の書式。
9文字以内であれば通常<72フォント>の書式。
ということはできませんか?
質問2.文字の位置ですが、どうしても一番右端に寄ってしまいます。
テキストボックスの中央に表示されるにはどうしたらよいでしょうか?
エクセルのイメージで言うと、”セルの書式設定”の”配置”で横位置が<中央揃え>、縦位置が<上詰め>という状態にしたいです。
質問1と2を合わせて解決して頂けたら嬉しいです。
コードやマクロや関数でもよいです。
わかりやすく教えてくだされば・・・
すみませんが、宜しくお願い致します。
No.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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 政治 私の発明した「二階建て漢字」は使えるでしょうか? 3 2023/02/08 16:40
- Word(ワード) 最高裁判所から通達がある Wordの書式設定。所謂 裁判所に提出するすべての書類のことです。 A4縦 2 2022/12/23 15:00
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/06/23 15:02
- Word(ワード) ワード。長い四角の中に文字を体裁良く入力するには。 2 2022/09/24 14:19
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/03/09 16:55
- Excel(エクセル) エクセルで文字列と数字が混在する列に書式設定したい。 3 2022/12/19 09:11
- Word(ワード) Word2019と365の互換性について質問 1 2023/06/10 19:33
- Excel(エクセル) エクセルにおいてセル内の文字を出来るだけ大きく表示する方法を教えてください。 4 2022/07/30 08:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワード:右上の小さい文字
-
エクセルでマイナスの%表示を...
-
Powerpointで、コピーすると、...
-
ワードで改行すると一行開いて...
-
エクセル 期日の半年前になる...
-
Ctrl+Shift+C、Ctrl+Shift+Vが...
-
縦書き日本語入力で( )をこ...
-
Google スプレッドシートを使...
-
【EXCEL2002】「貼り付け先の書...
-
CとかRの丸囲い文字、どうや...
-
ワードで既に使われている色の使用
-
コピーしたテキストのフォント...
-
ワードで文書の空白が消えない
-
word 背景について
-
所定の様式とは?
-
エクセルの文字入力で白抜き文...
-
英文での借用書書式を教えてく...
-
ワードで2行の文字の中央に・・。
-
ワードのふりがなと漢字を別々...
-
ワードからアウトルックへコピ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワード:右上の小さい文字
-
ワードで改行すると一行開いて...
-
Powerpointで、コピーすると、...
-
エクセルでマイナスの%表示を...
-
縦書き日本語入力で( )をこ...
-
Ctrl+Shift+C、Ctrl+Shift+Vが...
-
エクセル 期日の半年前になる...
-
Google スプレッドシートを使...
-
ワードの文字の濃さを揃えたい。
-
レポート
-
パワーポイントで乗数はどうや...
-
英文での借用書書式を教えてく...
-
wordの表にテキストをペースト...
-
CとかRの丸囲い文字、どうや...
-
Excel 条件付き書式 行ごとに...
-
ワードで既に使われている色の使用
-
wordで縦書きで「あ」に濁点を...
-
【EXCEL2002】「貼り付け先の書...
-
word 背景について
-
EXCEL VBAで、PasteSpecialと D...
おすすめ情報