No.1ベストアンサー
- 回答日時:
Access2000のみで考えてみました。
例として、下記VBAは『日本人の体力2000』という文字をExcelの90度回転のように表示します。ラベルの幅や高さは調整して下さい。テキストボックスでも同じようにできました。(当然、ラベル0にこの文字をセットしておいても可能です。)
日本語の縦書きフォント(先頭が『@』)があるフォントなら表現できると思います。(MS明朝とかMSゴシックは当然OKです)
文字に半角文字が混ざっているとまずいので全角に変換しています。この辺が苦しいところです。
もっと簡単な方法がありそう?
とりあえず、ご参考に。
Private Sub Form_Open(Cancel As Integer)
Const moji = "日本人の体力2000" '表示したい文字
Dim L As Integer 'カウンタ
With ラベル0
'文字を逆順にする
.Caption = ""
For L = Len(moji) To 1 Step -1
.Caption = .Caption & Mid(StrConv(moji, vbWide), L, 1) ’半角文字は全角にしてしまう!!
Next
'縦書きフォントにする。「@」付きフォントがあるフォントに限るが・・・
If Left(.FontName, 1) <> "@" Then
.FontName = "@" & .FontName
End If
End With
End Sub
回答ありがとうございます。
縦書きフォントはあります。
したがって、
ラベルのHeightとWidthを入れ替えて、縦書きのプロパティ(Vertical)を"Ture"にして、フォントを縦書きフォント(@付き)にすれば出来そうです。
半角も問題なさそうです。
どうもありがとうございました。
では。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- プリンタ・スキャナー プラザーのプリンター DCP-J926N-W/B を使用して 100均などで売られている マグネット 1 2022/12/01 14:40
- プリンタ・スキャナー Wordで作った宛名ラベルを印刷しようと思って、プリンターの上のところにある、手差しトレイ的なところ 3 2022/11/17 18:40
- ラジコン・ミニ四駆 DCモーターの事でお聞きします。 3 2022/04/08 07:55
- その他(セキュリティ) Microsoft defender smart screen 実行できない 12月最新版 1 2022/12/18 15:25
- Android(アンドロイド) スマホGメールラベルについて、 あくまでPCじゃなく スマホでの質問です。 現在は、Androidス 2 2022/12/05 01:49
- 飲み物・水・お茶 人工甘味料のもの間違って買った時は? 4 2022/09/25 10:56
- その他(買い物・ショッピング) 商品にラベルを貼って出荷するまでのの手順にについて 2 2022/09/29 15:26
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Excel(エクセル) Excelグラフのラベルオプションの並べ替えは可能ですか。セルの値を最後にしたいのですが。 1 2022/06/05 10:45
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Accessのレポートで「縦書き」したいのですが…
その他(データベース)
-
Access レポートの文字間を設定したい
PowerPoint(パワーポイント)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
-
4
アクセルのレポートの2列の一列を180度回転させる
その他(データベース)
-
5
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
6
ラベル内の文字(Caption)を縦表示にする方法
Visual Basic(VBA)
-
7
ACCESSでコントロールソースの変更
Access(アクセス)
-
8
【Access】レポートでテキストボックスやラベル中の文字配置を下にしたい
Access(アクセス)
-
9
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
10
テキストボックスの回転
Visual Basic(VBA)
-
11
「90°右半回転した数字の3はだせますか?」
PowerPoint(パワーポイント)
-
12
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
13
ACCESSでタイトルバーを非表示にする方法
Access(アクセス)
-
14
Accessで縦書きの場合の数字の表示
その他(データベース)
-
15
Accessのオブジェクトの表示順はかえられる?
Access(アクセス)
-
16
封筒への宛名印刷(ワードorアクセス)
Access(アクセス)
-
17
イメージコントロールに 読み込んだ Picture を 90度 回転したい
Visual Basic(VBA)
-
18
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
19
アクセス:既定値に土日含まず3日後を指定したい
Access(アクセス)
-
20
アクセスのフォームで、文字を中央揃えにしたい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
+、-、÷、×を英語フォントで...
-
AutoCADLTで 図面を回転時に文...
-
エクセルで文字の縦横比を変えたい
-
「~」←これはなんと読むのでし...
-
いきなりPDFで作った文書が...
-
CADの文字を太くしたい
-
著作権に関して。(エヴァンゲ...
-
illustrator10 文字を入力して...
-
イラストレーターで小さい文字...
-
ラベル、テキストコントロール...
-
記号を英文字で表示したい
-
【大至急!!】PowerPointの文...
-
Excelのフッター(ページ番号)...
-
エクセルでマクロを作成してま...
-
1とlを区別するためのフォントは
-
偏微分の記号∂の出し方
-
/と反対のスラッシュの出し方
-
Illustratorで8分音符を書く時...
-
illustratorで「プレビューを終...
-
IME2010 変換候補に漢字が出ない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
+、-、÷、×を英語フォントで...
-
AutoCADLTで 図面を回転時に文...
-
illustrator10 文字を入力して...
-
ラベル、テキストコントロール...
-
「~」←これはなんと読むのでし...
-
文書PDFを拡大してもきれいなの...
-
いきなりPDFで作った文書が...
-
記号を英文字で表示したい
-
インド系文字のようなアルファ...
-
pdfファイルに文字を書きたい。...
-
CADの文字を太くしたい
-
イタリック文字にするにはどう...
-
イラストレーターで小さい文字...
-
ニコニコ動画の実況で文字の色...
-
PhotoShopで作成した文字がぼや...
-
文字が白抜きでプリントされて...
-
この画像のように文字を円形に...
-
メタル風の文字を作りたいです
-
ホームページビルダーで縦書き
-
中国から届いたdwgファイルにつ...
おすすめ情報