【エクセル】矢印のサイズ変更

いつもお世話になっております。

計画表を作成するにあたり、行き詰ってしまったので
参考のサイトやアドバイスを教えて頂きたいです…。

まず図でいくと右上にあります【選択したセルに矢印を引く】をクリックしますと
選択したセルに矢印が引かれます。
そのプログラムは以下のようになってます。

Sub Test()
Dim TP, LF, WD
TP = Selection.Top + (Selection.Height / 2)
LF = Selection.Left
WD = Selection.Width

ActiveSheet.Shapes.AddLine(LF + 0, TP, LF + WD, TP).Select

'始点のスタイル
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadShort

'終点のスタイル
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle

End Sub

しかし矢印の三角部分が大きいので、これを一番小さいスタイルの矢印へ
変更したいのですが・・・うまく変更されません。
どう修正すれば変更されるのでしょうか。

わかる方いらっしゃいましたら教えて頂きたいです。
プログラムは同じような用途のものでしたら
どんなのでも有り難いです。

宜しくお願い致します。

No.2 ベストアンサー 回答者： suz83238 回答日時： 2012/08/21 05:45

終点のスタイルを以下に変更

Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadOpen

この回答へのお礼

ありがとうございます！助かりました＞＜

お礼日時：2012/08/23 19:55

No.1 回答者： Hayashi_Trek 回答日時： 2012/08/21 01:20

以下のプロパティで設定します。

LineFormat.BeginArrowheadLength プロパティ
LineFormat.BeginArrowheadStyle プロパティ
LineFormat.BeginArrowheadWidth プロパティ
LineFormat.EndArrowheadLength プロパティ
LineFormat.EndArrowheadStyle プロパティ
LineFormat.EndArrowheadWidth プロパティ

各プロパティの値は以下の通り

［MsoArrowheadLength 列挙型］
msoArrowheadLengthMedium中
msoArrowheadLong長
msoArrowheadShort短

［MsoArrowheadStyle 列挙型］
msoArrowheadDiamondひし形矢印
msoArrowheadNone矢印なし
msoArrowheadOpen開いた矢印
msoArrowheadOval円形矢印
msoArrowheadStealth鋭い矢印
msoArrowheadTriangle三角矢印

［MsoArrowheadWidth 列挙型］
msoArrowheadNarrow小
msoArrowheadWide大
msoArrowheadWidthMedium中

参考URL：http://msdn.microsoft.com/ja-jp/library/microsof …

この回答へのお礼

とても助かりました！
本当にありがとうございます！！！

お礼日時：2012/08/23 19:56