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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Accessのレポートで「縦書き」したいのですが…
その他(データベース)
-
テキストボックスの回転
Visual Basic(VBA)
-
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
6
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
7
VBAのユーザーフォームのイメージコントロールに読み込んだ画像を左に90°回転させたい
Visual Basic(VBA)
-
8
ラベル内の文字(Caption)を縦表示にする方法
Visual Basic(VBA)
-
9
アクセルのレポートの2列の一列を180度回転させる
その他(データベース)
-
10
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
11
Accessで縦書きの場合の数字の表示
その他(データベース)
-
12
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
13
エクセルVBA
Excel(エクセル)
-
14
アクセス 壊れた? 「ファイルが見つかりません」
Access(アクセス)
-
15
Accessクエリ 複数フィールドを対象に空白の場合は全件表示したい
Access(アクセス)
-
16
ACCESSでタイトルバーを非表示にする方法
Access(アクセス)
-
17
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
18
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
19
Access レポートの文字間を設定したい
PowerPoint(パワーポイント)
-
20
VBA:ユーザーフォームに貼り付けるラベルを――
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ラベル、テキストコントロール...
-
+、-、÷、×を英語フォントで...
-
illustrator10 文字を入力して...
-
いきなりPDFで作った文書が...
-
AutoCADLTで 図面を回転時に文...
-
イタリック文字にするにはどう...
-
フォント探しています。
-
Quark3.3で文字が非表示
-
IME2010 変換候補に漢字が出ない
-
偏微分の記号∂の出し方
-
円マークの違い
-
1とlを区別するためのフォントは
-
Illustratorで8分音符を書く時...
-
MAC、Illustrator10の線幅を足...
-
エクセルでマクロを作成してま...
-
「じゅん」に似た書体は何でし...
-
power pointをイラストレーター...
-
EXCELで0を0上斜め線表示したい。
-
Keynoteに大量の文字をアウトラ...
-
アウトラインした文字がなんの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
+、-、÷、×を英語フォントで...
-
AutoCADLTで 図面を回転時に文...
-
「~」←これはなんと読むのでし...
-
文書PDFを拡大してもきれいなの...
-
illustrator10 文字を入力して...
-
ラベル、テキストコントロール...
-
いきなりPDFで作った文書が...
-
記号を英文字で表示したい
-
jpg 画像に文字入れ、簡単なボ...
-
写真への文字の貼り付け
-
PhotoShopで作成した文字がぼや...
-
インド系文字のようなアルファ...
-
CADの文字を太くしたい
-
illustratorで特定の書体が表示...
-
文字が白抜きでプリントされて...
-
イラストレーター 文字の差し...
-
エクセルで文字の縦横比を変えたい
-
イタリック文字にするにはどう...
-
著作権に関して。(エヴァンゲ...
-
白の文字画像をどんな色の背景...
おすすめ情報