ワードで長い伸ばし線を出したい

質問

ワード2013で漫画によくあるこういう波線の長い伸ばし線を出したいのですが
どうやったらいいんですか？

回答No.2

imogasi · ベストアンサー

「痛った」の部分と下の「い」の部分は２つのテキストボックスを作りそれぞれ文字を入れる。枠線は消す。
２つのテキストボックスの位置はそれぞれ適当に動かして配置。
波線部分のページにはマス目のグリッドラインを引いておき。挿入ー図形ー曲線で曲線を入れる。
その時、基準のボックス一番上左の基準の点のグリッド線の交点でクリック、一段下の＋１とー１の交点でクリック、次は２段下の＋０－２の交点でクリック、次は３段下の＋１、－３の点でクリック、以下ジグザグ状の端点ノードで繰り返す。
ＥＳＣキーを押すと、そこでこの曲線の連続は終わる。線の太さは「線」の「幅」で指定調節する。ジグザグ状にクリックしていくと頂点の角は丸く滑らかになってくれる。
最左点と最右点（波線の頂点になるべきところ）でクリックするのがコツ。
波線は水平状に作っておいて図形の回転して垂直にもできる。

お礼

難しそうですが試してみます。

回答No.3

imogasi

#2です。波線をフリーハンドでかっこよく書くのは難しいと思います。
波線といえば、一番ふさわしい適当なのはサインカーブです。
下記はＷＥＢの記事を参考にして作りました。ＷｏｒｄＶＢＡというプログラムを組むことになりますが、文書画面でＡＬＴキー＋Ｆ１１キーで出たＶＢＥの画面に、下記をコピペします。
Sub SinCurve()
Dim bX, bY, Sita, Y, wScale
bX = 250
bY = 500
wScale = 5
With ActiveDocument.Shapes
With .BuildFreeform(msoEditingAuto, bX, bY)
For i = 4 To 628 * 5 Step 8
Sita = i / 100
Y = -Sin(Sita)
.AddNodes msoSegmentCurve, msoEditingAuto, _
bX + Sita * wScale, bY + Y * wScale
Next
’.ConvertToShape
End With
End With
End Sub
628 * 5は５つの山のある波を書く指令です。６に変えれば６山になります。
上記コードの途中のどこかをクリックしておいて、Ｆ５キーを押すと実行されます。
実行時に、コンピュター実行の繰り返しがあって少し時間がかリます。
まず横展開の波形ができます。
これを図形の回転ハンドルで９０度回転させれば、縦状の波線になります。
線の太さや、線の色は操作で設定できます。

お礼

試してみます‼

回答No.1

yota2014

コミック用フォント
http://okoneya.jp/font/genei-antique.html

お礼

有難う御座いました