痔になりやすい生活習慣とは?

 帳票や、ラベルを作成する時に決められた範囲の中に文字を詰めて入れたい時があります。
 こういった時、文字のフォントを小さくするのではなくて縦長になるようなフォントが欲しいのですが。または漢字間のスペースが小さいフォント。
 無料のフォントってありますか?(ちょっとむしがいいかも)

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

A 回答 (5件)

>エクセルとかアクセスで使いたいのです


◆エクセルの「図の貼り付け」による方法です
■手順■
1)任意のセルに普通に入力します
2)そのセルをコピーして、貼り付けるセルを指定して、Shiftキーを押しながら、メニューバーの[編集]を選択します
3)リストから、「図の貼り付け」を選択します
4)図を縦に広げると文字が縦長になります
5)なお、「図のリンク貼り付け」にすると、元のセルの変更が反映されます
 
    • good
    • 0
この回答へのお礼

あっ!! これっ おもしろいですね!!
むむっ!
と云う事は、文字を図形処理すれば Access でも出来そうですね。
更に伝票のタイトル文字列にも使えるかも。
A4用紙の1枚の横にどれだけ文字が並べられるかに苦労してたものですから。
ちょっと挑戦してみます。
英数字には標準で付いてる Arial Narrow と云うフォントを結構重宝に使ってたものですから。
成功したら報告します。
その辺で良いアイデアがあれば教えてください。

お礼日時:2006/11/28 22:26

ソフトの情報がありませんがWordでいいのでしょうか?


Wordなら文字を縦に拡大縮小は出来ませんが、横方向には拡大も縮小も出来ますから
縦長の文字が欲しければ、大きなサイズのものの横幅を狭めるという方法で実現できます
    • good
    • 1

1行だけなら図形描画機能のワードアートで出来ます。



excel,word何れでもokです

図形描画のツールが出ていなければ、表示メニュー→ツールバー→図形描画
で描画ツールバーが表示されます。
ワードアートの右上のパターンを選び希望の文字列を入力して、書体をここで決めます。(ポイント数の調整は不要)
縦書きに表示されます。図形描画のツールバーの中に縦書-横書のアイコンがあります。
大きさは直接変更できますが、ワードアートの文字がアクティブのまま書式メニュー→ワードアートで「サイズ」タグで縦横のサイズをcm指定できます
    • good
    • 0

検索してみたら、こんなフォントがありました。


http://ohkadesign.cool.ne.jp/wabunfont/a-kei/a-k …
ここの、「和楽」というフォントです。(有料らしいです)
字間が広いので質問者さんの要望とは異なるかもしれませんが・・・。

ワードでラベル作成ならば、#1さんの回答のほか、ワードアートを使うという手もありますね。

この回答への補足

 今、見てきましたけど本当に横幅が狭くなるんですか?

補足日時:2006/11/28 00:59
    • good
    • 0

その昔、「一太郎」を使っておりましたときは簡単にできた機能で「縦倍角」という処理でしょうか。

それなら、Wordでもコレで可能です。Wordの機能を利用するので、もちろんタダです。

http://www.relief.jp/itnote/archives/001477.php
    • good
    • 0
この回答へのお礼

 回答ありがとうございます。
 エクセルとかアクセスで使いたいのです。
 と言う事でフォント自体でそんなのがあればと、質問しました。

お礼日時:2006/11/28 00:58

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

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

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

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

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

Qエクセルの文字を縦長/横長に

今晩です。

エクセルで、文字を変更したいのです。
大きさや、種類等は、変更出来ますが、文字を縦長や横長にしたいのです。又、文字が大きくなれば、文字と文字のの間隔が広くなりまうよね、あれを、調整したいのです。

よろしくお願いします。

Aベストアンサー

挿入→図→ワードアート

これで好きな文字列が、
セルに縛られず伸縮自在となります。

書式設定で細かく文字の線、塗りつぶしなどを
調整もできます。

Qエクセルで文字間隔・行間隔の調整の方法を知りたい

Microsoft Excel 2010を使っています。
エクセルのセルの中での文章入力の際に文字間隔と行間隔を変更したいのですが、その方法が解りません。教えてください。

Aベストアンサー

エクセルはワープロ「ではない」ので、そういった細かな微調整をする機能はありません。
どうしてもそういった飾りが必要なら、餅は餅屋でワープロソフトを使ってください。


敢えて行うとすれば

>文字間隔

セルの書式設定の配置の横位置を「均等割り付け」にしておき、セル(列)の横幅によって調整します
文字間隔を「狭める」機能はありません。



>行間隔

こちらも同様に、セル内の行間隔を「狭める」機能はありません。セルの書式設定の配置の縦位置を「均等割り付け」にして、行の高さを高くします。

セル内にたとえば3行記入してあったとしたら、それを3行の、つまり上下3つのセルに分割して記入します。この3行の行の高さを調整してください。

Qエクセルで画像を透過させて画像の上に入力した文字を表示させる方法

この度エクセルで、レイアウトして広告を作っているのですが、セルに入った文字列を「図をファイルから挿入」した画像の上に表示させてレイアウトしたいのですが、どうしてもセルに入った文字が消えて、指定した画像で隠れてしまいます。

なんとか画像の上にセルに入った文字列を表示させる方法はありませんか??

教えてください

Aベストアンサー

上に載せたい文字列のセルをコピーして
Shiftを押しながら「編集」「図のリンク貼り付け」で
セルの内容を図形か出来ます。
これを画像の上に重ねればお望みの状態になります。
※枠線が出てきますので、不要なら「ツール」「オプション」「表示」の
「枠線」のチェックをはずしてください。

別の方法
オートシェープを呼び出して「テキストの追加」
数式バー上にカーソルを移して =A1 のように文字の入ったセルを参照表示させる。
「塗りつぶし」「塗りつぶし効果」「図」「参照」で図をオートシェープの塗りつぶしとして表示させる。

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む

Q文字の 縦/横の比率 を変更したいのですが。

Windows10 ・Excel。例えば 『あ』の字を画面表示/印刷するとき、縦/横 の比率を変えて、やや平たい横長文字にしたり、上下にひょろ長い縦長文字にしたいのですが、そのような指定をすることができますか? できるとしたら、その指定(操作)方法を教えてください。初心者ですので、操作手順を省略せずに(特にメニュー項目名の指定は省かないで)教えてください。もしそのような操作ができない場合は、フォントの中に、横長文字や縦長文字があったらそのフォント名を教えてください。よろしくお願いします。

Aベストアンサー

エクセル単体でも、コピー&貼り付け(図)にしてしまえば出来ると思います。
適当なセルに あいう と入力、コピー
貼り付けで、ウィザードの下段にある 図 を選択
張り付けてできた図を縦長(横長)にする

QVBで横倍角/縦倍角を表示したいのですが

VBでラベルプリンターのイメージ表示みたいなものを作っていますが、
ラベルやテキストボックスに横倍角や縦倍角の文字を表示することは可能でしょうか。

Aベストアンサー

先に回答されている方と同じ理由でやはりピクチャーボックスでの方法です。

'*******************************************************
Option Explicit

Dim OB As Object '表示オブジェクト
Dim FN As String 'フォント名
Dim FX As Integer 'フォントの横サイズ
Dim FY As Integer 'フォントの縦サイズ
Dim cx As Long '表示X座標
Dim cy As Long '表示Y座標

Private Const DEFAULT_CHARSET = 1
Private Const OUT_DEFAULT_PRECIS = 0
Private Const DEFAULT_QUALITY = 0
Private Const DEFAULT_PITCH = 0
Private Const FF_DONTCARE = 0
Private Const LF_FACESIZE = 32

Private Type Size
cx As Long
cy As Long
End Type
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName(LF_FACESIZE) As Byte
End Type
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As Size) As Long

Private Sub Command1_Click()
Dim fnt As String
Dim FntSizeX As Integer
Dim FntSizeY As Integer

fnt = "MS 明朝"
FntSizeX = 12
FntSizeY = 12

With Picture1
.FontName = fnt
.FontSize = FntSizeX
Picture1.Print "testてすと"
End With

Set OB = Picture1
'Set OB = Printer
'OB.Print "" 'Printerの場合初めにダミーを印刷しないと印刷されない
FN = fnt

FX = 12: FY = 12: cx = 0: cy = 500: PrintText "testてすと"
FX = 12: FY = 24: cx = 0: cy = 1000: PrintText "testてすと" '縦倍角
FX = 24: FY = 12: cx = 0: cy = 1500: PrintText "testてすと" '横倍角
End Sub

Sub PrintText(text As String)
Dim LF As LOGFONT
Dim IX As Integer

Dim TempByteArray() As Byte
Dim ByteArrayLimit As Long

Dim OldFT As Long
Dim NewFT As Long
Dim rtn As Long
Dim hdc As Long
Dim sz As Size

Dim TppX As Long
Dim TppY As Long

Dim PX As Long
Dim PY As Long

hdc = OB.hdc

If (OB Is Printer) Then
TppX = Printer.TwipsPerPixelY
TppY = Printer.TwipsPerPixelX
Else
TppX = Screen.TwipsPerPixelY
TppY = Screen.TwipsPerPixelX
End If

PX = cx / TppX
PY = cy / TppY
With LF
.lfEscapement = 0 '文字の回転角度(角度*10)

.lfHeight = FY * 20 / TppX '文字の高さ
.lfWidth = FX * 10 / TppY '文字の幅

.lfWeight = 400 '文字の太さ
.lfItalic = False '斜体
.lfUnderline = False '下線
.lfStrikeOut = False '取り消し線

.lfCharSet = DEFAULT_CHARSET
.lfOutPrecision = OUT_DEFAULT_PRECIS
.lfClipPrecision = OUT_DEFAULT_PRECIS
.lfQuality = DEFAULT_QUALITY
.lfPitchAndFamily = DEFAULT_PITCH Or FF_DONTCARE

TempByteArray = StrConv(FN, vbFromUnicode)
ByteArrayLimit = UBound(TempByteArray)
For IX = 0 To ByteArrayLimit
.lfFaceName(IX) = TempByteArray(IX)
Next
End With

NewFT = CreateFontIndirect(LF)
OldFT = SelectObject(hdc, NewFT)

'うまく表示されない場合、下記のコメントをはずす
'GetTextExtentPoint32 hdc, text, LenB(StrConv(text, vbFromUnicode)), sz
TextOut hdc, PX, PY, text, LenB(StrConv(text, vbFromUnicode))

rtn = SelectObject(hdc, OldFT)
rtn = DeleteObject(NewFT)
End Sub
'*******************************************************

フォームにpicturebox と commandbuttonを貼り付けて上記コードを貼り付けて実行してみてください

CreateFontIndirect APIを使用しています。
説明は省きますが、検索すればたくさんあると思います。
No.2の方と同じ様なもので回転も出来ます。
set OB = picture1 を set OB = printer にすればPrinterにも同じ様に印刷されるので、
イメージ表示の感じになるのではないでしょうか?
今回は倍角についての質問でしたので、斜体、下線、太字等の設定は固定にしてあります。

先に回答されている方と同じ理由でやはりピクチャーボックスでの方法です。

'*******************************************************
Option Explicit

Dim OB As Object '表示オブジェクト
Dim FN As String 'フォント名
Dim FX As Integer 'フォントの横サイズ
Dim FY As Integer 'フォントの縦サイズ
Dim cx As Long '表示X座標
Dim cy As Long '表示Y座標

Private Const DEFAULT_CHARSET = 1
Private Const OUT_DEFAULT_PRECIS = 0
Private Const DEFAULT_QUALITY = 0
Private Co...続きを読む

Qエクセルで縦倍、横倍角で文字を打つには?

タイトル通りの質問なんですが、
ワードだとできるので、貼り付けて
みたのですが、貼り付けるともとに
戻ってしまいます。

単に文字を大きくしたいだけではなく、
均等割付のように文字間隔を
変えたいのではありません。

どうすればいいでしょうか?

因みにOfficeXPです。

Aベストアンサー

ワードの文字書式までコピーするには、ただのコピーではなく、貼り付けの下にある「形式を選択して貼り付け」を選択して、「Microsoft Word文書オブジェクト」を選択して貼り付けてください。編集も可能です。オブジェクトとして貼り付けるため枠線や背景色が設定されているのでそれらを変更すれば。
エクセルでは文字の大きさはワードほど自由度はありません。

QEXCELのセルが動かないです

普通は、矢印キーを押すと、セルが動きますよね。

今日、仕事中
矢印キーほ押してもセルが動かなくなりました。
画面は動きますがセルがついて来ないのです。
そのPCで使う場合どのエクセルも同様の動きです。

ツールバーあたりを設定する必要がありますかね。

Aベストアンサー

そのPCのScroll Lock (Scr Lk)キーが押されていませんか?

QExcelで文字を縦長にするには?

1つのセルに入力されている一部の文字だけを縦長にしたいです。
例えばA1に「あいうえお」とあったら「えお」だけ縦長に。

セルを分割しても縦長に出来るのなら、それで構いません。

ご教示願います。

Aベストアンサー

フォントサイズを変えることならできますけど。
縦倍角という意味なら無理だと思います。

QWordで、1ページを丸ごと削除するには?

1ページしか必要ないのに、真っ白な2ページ目がその下に表示されてしまった場合、この余分な2ページ目を一括削除(消去)する為に、何かいい方法があるでしょうか?

Aベストアンサー

<表示されてしまった場合>
これはそれなりに理由があるわけで、改ページや改行によって、次のページにまで入力が及んでいる時にそうなります。
特に罫線で表を作成し、ページの下一杯まで罫線を引いたときなどには、よくなる現象です。

さて、メニューの「表示」で段落記号にチェックが入っていないと、改行や改ページなどの入力情報が見えず、白紙のページを全て選択→削除してもそのままということが良くあります。
1 改行マークが白紙のページの先頭に入っていれば、それをBackSpaceで消してやる。
2 罫線を使っている場合は、それでも効果がない場合がありますが、その時は行数を増やしてやる。
などの方法があります。


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

人気Q&Aランキング