こんにちは。maruru01です。
Access2000で、ラベルコントロールかテキストコントロールを回転する方法はないでしょうか。
ちょうど、Excelのグラフの縦軸のラベルのように90度回転させたいのです。
また、それをVBAで記述したいのです。
有料のDLLかOCXを使用してもかまわないので、何かいい方法があったら教えて下さい。
なお、Windows2000(SP2)で使用。

このQ&Aに関連する最新のQ&A

A 回答 (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
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
縦書きフォントはあります。
したがって、
ラベルのHeightとWidthを入れ替えて、縦書きのプロパティ(Vertical)を"Ture"にして、フォントを縦書きフォント(@付き)にすれば出来そうです。
半角も問題なさそうです。
どうもありがとうございました。
では。

お礼日時:2001/11/21 12:46

このQ&Aに関連する人気のQ&A

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

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q配列コントロールのイベントハンドラ記述方法

こんにちは。
配列trackbar(100)でValueChangedイベントハンドラを一括記述したいのですが、うまく動きません。方法ご教示ください。よろしくお願いします。

Private Sub changeTrackBarValue(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles TrackBar().ValueChanged
 '処理を記述
End Sub

Aベストアンサー

こんにちは。

VB.Net ですか、それとも、VSTA ですか?
一応、Office系ソフトということで回答させていただきます。

Private TrackBars(100) As System.Windows.Forms.TrackBar
と変数を置いてから、

Sub New()
 Dim i As Integer
 For i = 1 To 2
   Me.TrackBars(i - 1) = Me.Controls("TrackBar" & i.ToString)
 Next
 For i = 0 To Me.TrackBars.Length - 1 '100でも可
    AddHandler Me.TrackBars(i).ValueChanged, AddressOf Me.TrackBars_ValueChanged
 Next i
End Sub

Private Sub TrackBars_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
 ' 実行コード
 End Sub
 
 

こんにちは。

VB.Net ですか、それとも、VSTA ですか?
一応、Office系ソフトということで回答させていただきます。

Private TrackBars(100) As System.Windows.Forms.TrackBar
と変数を置いてから、

Sub New()
 Dim i As Integer
 For i = 1 To 2
   Me.TrackBars(i - 1) = Me.Controls("TrackBar" & i.ToString)
 Next
 For i = 0 To Me.TrackBars.Length - 1 '100でも可
    AddHandler Me.TrackBars(i).ValueChanged, AddressOf Me.TrackBars_ValueChanged
 Next i
End Sub

...続きを読む

Qラベルに「コントロールソース」を設定することは不可能でしょうか?

単票形式のフォームのレコードソースに紐付くコントロールソースを
ラベルに設定したいのですができません。
ハイパーリンクをテキストボックスではなく
ラベル上に表示したいです。

テキストボックスのプロパティには「コントロールソース」があるのですが
ラベルに「コントロールソース」はありません。
設定することは不可能でしょうか?
VBAでも可能なら教えてください。
よろしくお願いします。

Aベストアンサー

>「表示部分とハイパーリンクを「レコード移動時」に設定」
> とはなんのことでしょう?

表示部分
>  Me.lab00.Caption = sTmp

ハイパーリンク
>  Me.lab00.HyperlinkAddress = sTmp

レコード移動時
> Private Sub Form_Current()


> 指定した式にHyperlinkAddressプロパティに対する正しくない参照が含まれます

エラーになった時、sTmp の内容はどうなっていたのでしょうか。

QACCESSでラベルコントロールが印字されません

マイクロソフトのACCESSでツールボックスからラベルを選択してレポートの編集画面に貼り付け(?)たのですが、プレビューでも印字してみても表示されません。同じパソコンで違う人が作ったACCESSファイルではちゃんとラベルが出てます。その人に聞いてもわかりませんでした。教えてください。お願いします。

Aベストアンサー

レポートのデザイン画面
ファイル→ページ設定→余白
データのみ印刷←オフにする

頑張ってくださいヽ(^。^)ノ

Qアクセス2000の宛名ラベル印刷について

基礎的なことだと思いますが、お答えをお願いします。

アクセス2000において宛名ラベル印刷を行う際、3列6行の18枚の宛名ラベルシールがあるのですが、18名分印刷する人数がいない場合、次回に残りの途中からの印刷はできるのでしょうか?

向かって左上からしか印刷ができないと、どんどん宛名ラベルシールが無駄になっていってしまうので、途中から印刷できる方法をお知りの方は、教えてください。

よろしくお願いします。

仕事で私用してるので、早めのご回答がかなり嬉しいです。

Aベストアンサー

私なら、どうしても途中から印刷したいなら、やはりNo.2の方のようにダミーを入れます。
一番簡単ですし。

でも、実際には無駄にならないよう差出人の住所、名前などが入ったシールを作っておいたり、
周りの人に「何か印刷したいものない?」とムリヤリにでも他に印刷したいものがないか探します(笑)
あと、残ったシールをよくFDのラベル代わりに使ったり、
宛名代わりに資料を閉じるファイルの名前を複数行打ち込んで
細く切ってファイルの背表紙に貼るとか、とりあえずなんとか使い切る道を考えます。
途中から印刷というのは絶対しません。

理由は、数枚はがしているシール用紙を再びプリンタにセットして印刷すると、
プリンタの内部でシールがはがれて絡り、下手したら修理になるかもしれないからです。
もったいないですが、修理代よりはマシですから。

以上、お役に立てればよいのですが。

QAccess2000の宛名ラベルについて

こんにちは、Access2000で宛名ラベルを作成しました。何も特別な事はしていなく、一般的な宛名ラベルを作成したのですが、表示された、住所とか名前の文字が全て左に90°傾いている!?と言ったらよろしいでしょうか、首を左に傾けると文字が読める状態になってしまっています。どうしたらよいでしょうか?
質問がよく伝わらないかもしれませんが、文字が90°傾いてしまっていて、印刷も出来ない状態なのでどなたかご教授ねがいます!

Aベストアンサー

フォントが 「@MS Pゴシック」 などのように
@ の付いたものになっていたら
同名の @ なしのものに変えてください。


このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング

おすすめ情報