Home » エクセルマクロ・Excel VBAの使い方 » Shapesコレクション・Shapeオブジェクト » Excel VBAで線の矢印を消すには

Excel VBAで線の矢印を消すには

動作検証バージョン：Windows 11 Home + 64bit Excel バージョン 2506（ビルド18925.20158クイック実行）

「excelvba 線分 矢印なし」
といった検索キーワードでアクセスがありました。

判断が難しいキーワードですが、Excel VBAで「線矢印」「線矢印：双方向」の矢印を消す方法を調べていらしたのではないかと想像しています。

線の矢印を消すサンプルマクロ

以下のExcelマクロが参考になるのではないでしょうか。

Sub 線の矢印を無しにする()

　Dim shp As Shape
　For Each shp In ActiveSheet.Shapes
　
　　If shp.AutoShapeType = msoShapeMixed Then
　　　If shp.ConnectorFormat.Type = msoConnectorStraight Then
　　　　With shp.Line
　　　　　.BeginArrowheadStyle = msoArrowheadNone
　　　　　.EndArrowheadStyle = msoArrowheadNone
　　　　End With
　　　End If
　　End If
　　
　Next

End Sub

サンプルマクロで行っている処理

線の判定が難しいところで、（以前とは異なり）最近のExcelで作成した線の場合、Shape.AutoShapeTypeプロパティの戻り値がmsoShapeMixedになっているようなので、

　　If shp.AutoShapeType = msoShapeMixed Then

とIf文を入れています。

コネクタや曲線の場合には、矢印を消さないようにするために、更にConnectorFormatオブジェクトのTypeプロパティの判定を入れて、

　　　If shp.ConnectorFormat.Type = msoConnectorStraight Then

Shape.Lineプロパティで取得できる、LineFormatオブジェクトのBeginArrowheadStyleプロパティ・EndArrowheadStyleプロパティで矢印無しの状態にしています。

　　　　With shp.Line
　　　　　.BeginArrowheadStyle = msoArrowheadNone
　　　　　.EndArrowheadStyle = msoArrowheadNone
理解するExcel VBA／図形操作の基本
伊藤潔人 2021-11-28
Amazon


最終更新日時：2025-07-25 12:58

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » Shapesコレクション・Shapeオブジェクト » Excel VBAで線の矢印を消すには

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Excel VBA経験者の方に向けて、Word VBAの基本をキンドル本にしました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記のExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓


「Shapesコレクション・Shapeオブジェクト」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.