罫線で四角を引き角を円くする方法

質問

エクセルで罫線で四角い枠の角を丸くしたいのですが、どうするのでしょうか？
また、ワードではどうするんでしょう？

回答No.1

marbin · ベストアンサー

エクセルでは出来ないと思います。
罫線の変わりにシェイプで線を引く、
なら可能です。

マクロのサンプルです。

Sub test()
Dim i As Long
Dim c As Range
Dim si1 As Single
Dim si2 As Single
Dim tp As Single
Dim lt As Single
Dim sp As Shape
For Each c In Selection
tp = c.Top
lt = c.Left
si1 = c.Offset(, 1).Left - c.Left
si2 = c.Offset(1).Top - c.Top
Set sp = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, lt, tp, si1, si2)
With sp
.Adjustments.Item(1) = 0.3629
End With
Next
End Sub

お礼

ご返信ありがとうございます。

回答No.2

Wak2008

罫線では無理ですが、オートシェイプで角の丸い四角を引き、
プロパティで塗りつぶし色を透明にすることで同じ効果が
得られます。Wordでも同様に出来ます。
プレゼンでちょっとカッコ良くの時に結構多用してたりしますよ。

お礼

ご返信ありがとうございます。

一太郎では出来たのでワードやエクセルでも出来ると思ったのですが残念です。