Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Shapesコレクション・Shapeオブジェクト » PowerPoint VBAでコネクタの接続を解除する

PowerPoint VBAでコネクタの接続を解除する

動作検証バージョン：Windows版PowerPoint（バージョン1901 ビルド11231.20174）

「vba コネクタ 解除」
という検索キーワードに気が付きました。

詳細は不明ながら、大量のコネクタが存在するときに、一気に接続を解除したいという要望は、ありそうに感じます。

［スポンサードリンク］

コネクタの接続をすべて解除するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブスライドのコネクタがすべて接続解除されます。

Sub アクティブスライドでコネクタの接続をすべて解除する()
　With ActiveWindow.Selection

　　If .Type = ppSelectionNone Then Exit Sub
　　If .SlideRange.Count <> 1 Then Exit Sub

　　Dim shp As Shape
　　For Each shp In .SlideRange.Shapes
　　　If shp.Connector Then
　　　　With shp.ConnectorFormat
　　　　　.BeginDisconnect
　　　　　.EndDisconnect
　　　　End With　'shp.ConnectorFormat
　　　End If
　　Next shp

　End With　'ActiveWindow.Selection
End Sub

BeginDisconnect・EndDisconnectで接続解除できる

ConnectorFormatオブジェクトに用意されている、BeginDisconnectメソッドと

VBAでコネクタの接続を解除する

EndDisconnectメソッドを使えば、

VBAでコネクタの接続を解除する

コネクタの接続を解除できます。
　　Dim shp As Shape
　　For Each shp In .SlideRange.Shapes
　　　If shp.Connector Then
　　　　With shp.ConnectorFormat
　　　　　.BeginDisconnect
　　　　　.EndDisconnect

コネクタでないShapeに対してConnectorFormat.BeginDisconnect・EndDisconnectしようとすれば実行時エラーが発生してしまうので、事前にShapeオブジェクトのConnectorプロパティで、

VBAでコネクタの接続を解除する

図形がコネクタかどうかを判定しています。
　　Dim shp As Shape
　　For Each shp In .SlideRange.Shapes
　　　If shp.Connector Then
　　　　With shp.ConnectorFormat

最終更新日時：2019-05-18 05:03

▼『いちばんやさしい PowerPoint VBA の教本』は、一番易しいパワポマクロ入門書、というわけではありませんので、ご注意ください。
いちばんやさしいPowerPoint VBAの教本
［スポンサードリンク］

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Shapesコレクション・Shapeオブジェクト » PowerPoint VBAでコネクタの接続を解除する

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓
3年前(2021年4月)の
人気記事
1位:Windows 10で手書き入力するIMEパッドを表示するには
2位:IF関数で○○以上××以下という条件を指定する
3位:右から（後から・末尾から）n文字を削除したい
4位:IF関数で空白なら空白にする
5位:COUNTIF関数で「○○以上」「○○以下」の指定
6位:IF関数で空白でない場合・空白でなければの書き方
7位:左から（前から・先頭から）n文字削除する方法



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

検索


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

.