エクセルで数字を横に広げたい。見積書作っています。例えば１４ポイン確定

エクセルで数字を横に広げたい。見積書作っています。例えば１４ポイン確定で「40,000」の幅は約１２ミリなのですが14から16ミリ程度に横だけを延ばしたいのです。金額の桁数はいろいろなのですが、それぞれ横だけを長めにする方法はないでしょうか？通常の見積書の字体であればMSでも何でもかまいません。良い方法があればお教えをお願いします。

No.6 回答者： layy 回答日時： 2010/05/31 21:54

良く使うところを提供します。

すぐに役立つエクセルＶＢＡマクロ集
http://www.asahi-net.or.jp/~zn3y-ngi/
EXCELでお仕事
http://www.asahi-net.or.jp/~ef2o-inue/menu/menu0 …


「すぐに役立つエクセルＶＢＡマクロ集」サイトの
ＦＡＱにて、
「特定のセルだけ書式の変更許すには？」
というのがあります。
参考。

No.5 回答者： imogasi 回答日時： 2010/05/30 14:37

普通に考える限り

＞約１２ミリなのですが14から16ミリ程度に横だけを
を縦横比を２倍と仮定して
（１）横幅が２倍のフォントを探す（多分見つからないのでは）
（２）フォントの字体を、プログラムで２倍にする（フリー）ソフトを探す
ほか無いが、見つからないと思う。
ーー
そこで、シートの上の画像なら横に拡げると字体部分の幅だけが広がるので下記を思いついた。
しかしサイズや位置は色々試行錯誤して決めないとならないもどかしさが在る。
またマクロの記録の利用に慣れる必要も在る。
例えばシートのＣ１にセルエクセルで見積額をセットする。
そこで下記のマクロで、シートにオートシェイプ図形のテキストボックスを設け（囲み枠線なしにすること）、そこに＝Ｃ１（数式バー部に入れる）で値（見積り額）を持ってくる。
そのテキストボックスを（編集ーコピーで）コピーし、図形（ＪＰＧなど）としてシート上に貼り付ける。
セルの値と連動した図形（数字）を作るスキルは無いのでこういう形になった。
あとは
実際ではＣ１セルに当たるセルは見えない（見積書の範囲外）ところへ
テキストボックスも見えない（見積書の範囲外へ）ところへ配置する。Ｃ１でなくＺ１とか。
図形の位置は見積書の見積金額欄として相応しいところ。
図形の縦高、横幅の比率は字体（画像内の字の画像）が適当に相応しくなるよう設定。
Sub Macro1()

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 625.75, 123#, 50.75, 33#). _
Select

ExecuteExcel4Macro "FORMULA(""=RC[2]"")"
Selection.ShapeRange.Line.Visible = msoFalse
Selection.Copy
ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:= _
False
Selection.ShapeRange.ScaleWidth 0.26, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 73.5
Selection.ShapeRange.IncrementTop 73.5
Selection.ShapeRange.ScaleWidth 16.74, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 2#, msoFalse, msoScaleFromTopLeft
End Sub
もし興味があれば、上記はややこしそうに見えても、マクロの記録だけを使ったコードなので、やってみて、修正してください。
表示位置や、縦横比を決める数値は、質問者に合ったように修正が必要です。
またテキストボックスとコピーして出来た図形は見積書１通ごと毎回消去（ＤＥＬ）が必要ですが上記はそれが入っていません。
それもマクロの記録を採ればコードのパターンは判ります。

No.4 回答者： noname#112106 回答日時： 2010/05/30 13:18

ごまかしですが。

その箇所だけ文字フォントを「太字」にします。
Excel のバージョン、設定によって違うかもしれませんが
該当セルを選択し <Ctrl>+B で指定/解除できると思います。

「太字」は、言葉の意味は「文字の線幅をまんべんなく太らせる」だと思いますが、
実際にはフォントを左右にずらして重ねてるだけなので
高さが増えずに幅が増えます。

Excel 2000 の実例です、2003でも同様でしたが
以降のバージョンはわかりません。

尚、Excel の文字サイズは、画面のそれと印刷時と「完全に同一」でなく、
「画面では読めるのに印刷すると ＃＃＃ になってしまう（文字が入りきらない、の意）」
ことがよくあるので要注意です。

No.3 回答者： mike_g 回答日時： 2010/05/30 13:16

「１４ポイン確定」の「ポイン」て何のこと？

「１４ポイン確定」の「確定」て何のこと？

No.2 ベストアンサー 回答者： daiku164 回答日時： 2010/05/30 12:16

フォントの変更だけではダメですか?

フォント　Bookman Old Style　多少横伸びしているようです

この回答へのお礼

6名の皆様からいろいろとご指導を頂き感謝いたしております。14ポイントの大きさで作成することに指定されており、100枚からの原稿なのですが時間が掛かったためお礼が遅くなりました。ご容赦お願いします。当欄をお借りして皆様に厚く御礼申し上げます。
全てを参考にさせていただき、私のレベルで何とか活用できるようにしたいと思っています。

お礼日時：2010/06/02 15:49

No.1 回答者： keithin 回答日時： 2010/05/30 12:15

Lucida Sans Typewriter

Bookman Old Style
などのフォントでしょうか。気に入りそうなのを，幾つか試してみてください。

あるいは当該の数字が何か「合計値」など計算で出しているのであれば，フォントの種類は通常の文字種にして，１桁ごとに１列のセルに数字を桁で分ける計算式を並べてしまい，列幅で調整するような事もできます。

例：最大10列，カンマも１桁
=MID(TEXT(今の計算式,"?????,???"),COLUMN(A1),1)
を右にコピーして10個並べておく

10個のセルをセルの塗り色を「白」で塗っておき，周囲を罫線で囲ってひとつのマス目に見せかける。