角丸四角で角の丸みや線の太さを指定したい

解決済

質問者：sukeEmon
質問日時：2008/05/29 01:03
回答数：5件

office系のソフトでオートシェイプを使い角丸四角を書いたときに、
半径いくつの角の丸みにするなどの指定はできるのでしょうか？
また線の太さを０．５ｍｍなどに指定できるのでしょうか？
線の太さの単位はptになっているので、
それがそのままｍｍなのかどうかわかりません。

もし不可能だとしたら、
フリーのソフトなどで簡単にその作業ができるのがあれば教えてください。
よろしくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.5ベストアンサー

回答者： misatoanna
回答日時：2008/05/29 16:58

＃４です。

つたないマクロを書いてみました。
作成した角丸四角形を選択した状態で実行します。

丸角の半径調節をマクロ自動記録で記録してみますと、指定される数値は
長さそのものではなく、角丸四角の短い方の辺の長さに対する比になって
いるようです。

Sub Test()
　Dim msg, DefVal, shSize, HankeiMM, HankeiPT, R
　msg = "半径をミリメートル単位で指定してください。"
　'角丸四角の短いほうの辺の長さを取得(pt)
　shSize = WorksheetFunction.Min(Selection.Width, Selection.Height)
　'現時点の半径を取得(mm)
　DefVal = shSize * Selection.ShapeRange.Adjustments.Item(1) / 2.835
　'インプットボックスで半径を指定(mm)
　HankeiMM = Application.InputBox(msg, "半径指定", DefVal, Type:=1)
　'半径を換算(mm → pt)
　HankeiPT = HankeiMM * 2.835
　'指定された数値が短い辺の半分以上だったら短い辺の半分に修正
　If HankeiPT > shSize / 2 Then HankeiPT = shSize / 2
　'黄色いハンドルの位置設定
　R = HankeiPT / shSize
　Selection.ShapeRange.Adjustments.Item(1) = R
End Sub

- 0
- 件

通報する

この回答へのお礼

まさかここまでしてくれるとは！
感動しました。ありがとうございます。
自分もこの機会にマクロを勉強しようかと思います。
早速このマクロを実行したところ、
うまくいくことができました。
線の太さも解決したのでこれで完璧です。

本当にありがとうございました。

通報する

お礼日時：2008/05/30 01:22

No.4

回答者： misatoanna
回答日時：2008/05/29 16:00

半径は一般機能では指定できません。

線の太さにつきましては、例えば５mm にしたいときは、
オートシェイプの書式設定の [太さ]　ボックス内をクリアして、
直接　5 mm　と入力して [ＯＫ] します。

- 0
- 件

通報する

この回答へのお礼

線の太さでそんな指定の仕方もありなんですね！！！
ぜんぜん知りませんでした。
これならすごい楽ですね。
ありがとうございました。

通報する

お礼日時：2008/05/30 01:19

No.3

回答者： fujillin
回答日時：2008/05/29 15:29

半径の指定は、確かマクロでは可能なはずと記憶していますが、通常の操作では指定できないみたいですね。

表示の縮尺を大きくして、目視で行うしかないみたいです。

線の太さはpt表記ですが、文字のptと同じ単位です。
1pt≒1/72インチ≒0.35mm　にあたります。
文字サイズの換算は以下を参考にしてください。
　　http://www.japanlink.co.jp/dtpjiten/pdf/pdf08.pdf

- 0
- 件

通報する

この回答へのお礼

こんなサイトがあるんですね。
参考になりました。
ありがとうございます。

通報する

お礼日時：2008/05/30 01:16

No.2

回答者： debut
回答日時：2008/05/29 15:21

半径は、図を選択したときに現れる黄色のひし形をドラッグして調整します（黄色のひし形は短い辺に接するときの円の中心の位置で、短い辺の1/2の長さが可動範囲）。

なので、直接数値指定はできないんじゃないでしょうか。
長さを測定するもの（例えばパソコンの定規ソフトとか）があれば描けないことはないです。

１ptを約0.353mmとすると、0.5mmは0.5÷0.353で約1.42ptくらいになりますか。オートシェイプの書式設定ダイアログで、線の太さの欄に半角数字で1.42ptと入力すれば、およそ0.5mmの線は描けます。