こんにちは。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エンジン回転数とピストンの往復運動の説明なのですが・・・

お世話になります。

以下の説明ですが正しいでしょうか?

『エンジンが1500rpmで回っている場合
 1分間に1500回クランクが回っているのだから
 1秒間には25回まわっている。(1500/60)

 したがって、各気筒内ではピストンは1秒間に25回
 上下往復運動している』

4サイクルの車のエンジンの話です。
あってると思っていたのですが1秒間に25回!?
と、ちょっと疑問に思ったもので・・・。

Aベストアンサー

バイクのエンジンですが、実際に1000rpm時のエンジンの状態がアニメーションで表示されます。
かなり速く回転しているという事は理解できると思いますよ。

参考URL:http://www.yamaha-motor.jp/mc/lineup/sportsbike/sr400/cafe/engine/index.html

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シリンダの往復運動ですがこの写真の1から4までの意味を教えてもらえませんか?

シリンダの往復運動ですがこの写真の1から4までの意味を教えてもらえませんか?

Aベストアンサー

想像ですが、
①ソレノイドリレーのフォワード用コイル1で前進させ
②タイマーリレー1で時間稼ぎをして、
③リセット用コイル1で後進させる
④①~③の繰り返し
記号はそれぞれカタカナで書いた文字の
英語の頭文字だったりして。

実際のソレノイドのがどういう作業をするか
配置図のようなものがあれば、もう少し明確になります。

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

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

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

Aベストアンサー

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

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

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

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


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

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

Qバス運動(縦に往復運動)する電動歯ブラシを探てます

いまは音波水流や超音波水流の電動歯ブラシがほとんどのようで昔風の手で磨くような往復運動をする電動歯ブラシは見当たりません。
なにしろ手と同じような動きをするバス磨きの電動歯ブラシをつかいたいので現在販売されているものがありましたらメーカー名と品番や名称など教えてください。

Aベストアンサー

サンスターgumの商品は?

参考URL:http://jp.sunstar.com/company/press/2013/pdf/131010.pdf

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

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

Aベストアンサー

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

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

Qモータを利用した直線往復運動機構

モータを利用して直線往復運動をする機構を作りたいと考えています。

ですが、機械設計をした事が無く、どのような部品を
選定して組み合わせたら良いのか分かりません。

可動範囲は10cm程度で、重量はほとんどかかりません。
動けばいい程度のものです。

この部品を組み合わせればいい等分かれば教えて頂けないでしょうか。
出きるだけ、安く作りたいです。

Aベストアンサー

#5だが、三度。

> 自分で作るのは無理だと思うのですが、
> モータと接続するだけで、使えるボールねじ機構などは
> 売っているのでしょうか?

文章での説明だから、上手く伝わるかわからないが・・・。
ひとつひとつ考えてくれ。
わからないところは、補足する。

まず、ボールねじは、まさにネジとナットがあれば構成できる。
この場合、ネジの長さや径は任意に選択できる。
ネジが切られたシャフトは安いのがいくらでも手に入るだろう。
ナットは、高ナットを買えば良い。
ナットは一般的に六角形だからナットが回転しないようにガイドを設ければ、シャフトが回転すればナットは直線運動する。
ガイドは、ナットを両側から挟みこむように壁を作れば良いだろう。
あとは、ネジを支える軸受けを設置すればよい。
モータとの接続は、カップリングを用いれば、シャフト径が異なったり、少々の歪みなら吸収してくれる。

欠点は、ネジ・ナットは規格品だからピッチが固定であること。
速い移動速度が欲しければピッチは荒くなるし、細かい動きが欲しければピッチは狭くする必要がある。
ピッチが狭ければナットが移動する力が大きく取れる。

まあ、機構は単純だから、ゆっくり考えてもらいたい。

#5だが、三度。

> 自分で作るのは無理だと思うのですが、
> モータと接続するだけで、使えるボールねじ機構などは
> 売っているのでしょうか?

文章での説明だから、上手く伝わるかわからないが・・・。
ひとつひとつ考えてくれ。
わからないところは、補足する。

まず、ボールねじは、まさにネジとナットがあれば構成できる。
この場合、ネジの長さや径は任意に選択できる。
ネジが切られたシャフトは安いのがいくらでも手に入るだろう。
ナットは、高ナットを買えば良い。
ナットは一般的に六角形だ...続きを読む

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

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

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

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

よろしくお願いします。

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

Aベストアンサー

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

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

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

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

Q電子工作で、簡単に往復運動を実現するには。

こんにちは。
マイコン(PIC)などを使って、
上下運動をする方法を考えています。
(正確には、
人間の腕を棒にしたようなもので、
肩を支点に上下するイメージです。
音楽のリズムを刻ませたいです。)

どのような方法があるでしょうか。
何かアドバイスありましたら、
よろしくお願いします。

Aベストアンサー

どの部分をアドバイスしたら良いのかよく判らないのですが、
電気仕掛けならば、
モータかソレノイドを使うことになるでしょうね。

それをどうやってどうしたいか、
これはもう少し、具体的なイメージが示されないと判りません。

往復運動、反復運動の類ですから、
なんかの形で、マルチバイブレータを形成することになります。
同期させる必要はあるのでしょうかね???

楽しそうなので、何とか協力・回答・アドバイスしたいです。

もう少し、具体的なイメージを示してください。

QAccess2000の宛名ラベルについて

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

Aベストアンサー

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


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

人気Q&Aランキング

おすすめ情報