- 締切済み
波線
xls88の回答
- xls88
- ベストアンサー率56% (669/1189)
フリーフォームで代用します。試しにマクロを組んでみました。 Sub test波線() Dim myrng As Range Dim L As Double Dim T As Double Dim W As Double Dim H As Double Dim i As Integer Dim ti As Double Dim wi As Double Const n As Integer = 50 '頂点数 Const s As Double = 2 '振幅 Set myrng = ActiveSheet.Range("F5:I5") '**データ収集 With myrng L = .Left T = .Top W = .Width H = .Height End With '**フリーフォーム描画 With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, L, T + H / 2 - s) '**頂点の編集 For i = 1 To n - 1 '*各頂点のY座標 If i Mod 2 = 1 Then ti = T + H / 2 + s Else ti = T + H / 2 - s End If '*各頂点のX座標 If i = 1 Then wi = W / (n - 2) / 2 ElseIf i <= n - 2 Then wi = wi + W / (n - 2) ElseIf i = n - 1 Then wi = wi + W / (n - 2) / 2 ti = T + H / 2 End If '*頂点の追加挿入 .AddNodes msoSegmentCurve, msoEditingAuto, L + wi, ti Next i .ConvertToShape End With End Sub
関連するQ&A
- 波線の書き方
おせわになります。 今、エクセルで社外に提出したりする様式を作成中なのですが二つ質問させてください。 一つは波線を使いたいということです。 一つの文字の下線に波線を入れる方法はわかったのですが、一つの文章を波線で囲う方法がわかりません。文章は2行にわたっていて、その2行すべてを波線で囲いたいのです。 もう一つは文字の大きさを変えたいのです。 普通に変更するのではなく、文字の高さはそのままで、幅を狭くさせたいのです。フォントの設定で「文字幅と間隔」でしてみたのですが文字と文字が重なりすぎて見にくくなってしまいました。 この2点の解決の方法をどなたか教えてください。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- モニターに波線が・・・
突然モニターにカラフルな短い波線がいっぱい出てきました。 モニターを交換しても波線は消えませんでした。 ウィンドウ等を開くと波線はウィンドウよりも上(重なり)にあり マウスカーソルを波線に持って行くと、波線は下にあります。 この事から、モニターが原因ではなく、グラボか何かが原因だと思うのですが、直し方を教えて下さい。 宜しくお願いします。
- 締切済み
- その他([技術者向] コンピューター)
- 【エクセルで】波線の作り方
エクセルでグラフ機能を使わないで、棒グラフを手書きで作っています。左側の軸は株数を表しているのですが、最後の一つのデーターがそれまでのデーターと数字の単位が全く違うので、それまでの数字とその最後の数字の間に波線を引いて分断させたいのですが、波線の作り方が分かりません。宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで波線を引きたいのですが。
エクセルで、図を入れた表を作成しています。 罫線かアンダーラインで波線を引きたいのですが、どうすればよいのでしょうか。教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセル2002で『波線』描き方
XPのエクセル2002を使用しています。エクセルは、初心者です。今、エクセルで簡単な地図を作成しています。 地図で直線の長い道のりを、省略する為に『SS』(波線)エスのような曲線×2つを書くかと思うのですが、それをエクセルで描きたい場合どのようにしたらよいのでしょうか? 元から、この省略マーク『SS』がどこかにないのでしょうか? 曲線をマウスを使用して作っても、きれいな形になりません。教えてください。
- 締切済み
- オフィス系ソフト