OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

ラベル、テキストコントロールの回転について

  • すぐに回答を!
  • 質問No.171164
  • 閲覧数1109
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 91% (41/45)

こんにちは。maruru01です。
Access2000で、ラベルコントロールかテキストコントロールを回転する方法はないでしょうか。
ちょうど、Excelのグラフの縦軸のラベルのように90度回転させたいのです。
また、それをVBAで記述したいのです。
有料のDLLかOCXを使用してもかまわないので、何かいい方法があったら教えて下さい。
なお、Windows2000(SP2)で使用。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

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
お礼コメント
maruru01

お礼率 91% (41/45)

回答ありがとうございます。
縦書きフォントはあります。
したがって、
ラベルのHeightとWidthを入れ替えて、縦書きのプロパティ(Vertical)を"Ture"にして、フォントを縦書きフォント(@付き)にすれば出来そうです。
半角も問題なさそうです。
どうもありがとうございました。
では。
投稿日時 - 2001-11-21 12:46:45
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ