いつもお世話になっております。
計画表を作成するにあたり、行き詰ってしまったので
参考のサイトやアドバイスを教えて頂きたいです…。
まず図でいくと右上にあります【選択したセルに矢印を引く】をクリックしますと
選択したセルに矢印が引かれます。
そのプログラムは以下のようになってます。
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ベストアンサー
- 回答日時:
終点のスタイルを以下に変更
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadOpen
No.1
- 回答日時:
以下のプロパティで設定します。
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 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 複数セルに〇印をつけるマクロ 4 2022/09/07 05:33
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) VBA シート上にドロップダウンリストを作り、予め指定値をセットしたいのですが 1 2023/03/25 15:15
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Wordに曲がった矢印を挿入した...
-
Excelのオートシェイプで2箇所...
-
このクラシックの曲名を教えて...
-
携帯のインターネットの電波マ...
-
エクセルでセルに数値を入力す...
-
Auto CADの寸法線の分解方法
-
東西南北の矢印
-
エクセル コメントの矢印線を...
-
寸法公差と寸法交差
-
JPEG画像に矢印つきの寸法線を...
-
組立公差の規格を教えてください
-
イラストレーターで白抜き矢印...
-
autocad 特殊記号
-
ワード2013での質問
-
Auto CADの寸法矢印について
-
Photoshopで曲線の矢印付線をつ...
-
AUTOCADLT2004 寸法線について
-
Googleスライドの矢印の出し方
-
矢印の付いていない線は、「ラ...
-
【Bridge CS5.1】設定について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Wordに曲がった矢印を挿入した...
-
Excelのオートシェイプで2箇所...
-
パワーポイント。2つの矢印のワ...
-
携帯のインターネットの電波マ...
-
画像から寸法が読み取れるソフ...
-
このクラシックの曲名を教えて...
-
寸法公差と寸法交差
-
ACCESS 直線ツールの矢印
-
JW-cadの寸法の矢印の大きさを...
-
ワードの使い方・回転矢印?の...
-
エクセル コメントの矢印線を...
-
JPEG画像に矢印つきの寸法線を...
-
東西南北の矢印
-
AutocadLT寸法値の優先に関し教...
-
イラレで矢印の矢を小さくする...
-
【Bridge CS5.1】設定について
-
Auto CADの寸法線の分解方法
-
イラストレーターCS2のことで教...
-
エクセルで矢印の太さを変えたい
-
Auto CADの寸法矢印について
おすすめ情報