ハイパーリンクを削除するPowerPointマクロ

対象：PowerPoint2003, PowerPoint2007, PowerPoint2010, PowerPoint2013

「パワーポイントマクロハイパーリンク削除」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

PowerPointでハイパーリンクを削除するマクロを探している方による検索です。

PowerPointでプレゼン資料を作成しているときに、Web上から文字列をコピペしたときに、ハイパーリンクが含まれていると、自動的にハイパーリンクが設定されます。

これを削除したいということでしょうか。

オブジェクトブラウザで「hyperlink」を検索してみると、SlideオブジェクトやSlideRangeオブジェクトがHyperlinksプロパティを持っていることがわかります。

ハイパーリンクを削除するPowerPointマクロ

HyperlinksプロパティでHyperlinksコレクションオブジェクトを取得して、Hyperlinkオブジェクトを順番に削除すればよさそうです。

［スポンサードリンク］

アクティブなスライド上のハイパーリンクを削除するのなら、SlideRangeオブジェクトのHyperlinkオブジェクトを削除する以下のようなマクロです。

Sub アクティブなスライド上のハイパーリンクを削除する()

　Dim hlk As Hyperlink

　With ActiveWindow.Selection.SlideRange

　For Each hlk In .Hyperlinks
　　hlk.Delete
　Next hlk

　End With

End Sub

Webからコピペをして、上記のマクロで、すぐにハイパーリンクを削除するほうが無難だと感じますが、すべてのスライドのハイパーリンクをまとめて削除することもできます。

すべてのスライドのハイパーリンクを削除するのなら、SledesコレクションオブジェクトからSlideオブジェクトを取得して、Hyperlinkオブジェクトを削除すればOKです。

Sub 全スライドのハイパーリンクを削除する()

　Dim sld As Slide
　Dim hlk As Hyperlink

　For Each sld In ActivePresentation.Slides

　　For Each hlk In sld.Hyperlinks
　　　hlk.Delete
　　Next hlk

　Next sld

End Sub

関連語句

VBA, Visual Basic for Applications

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

3年前(2021年4月)の
人気記事

「パワーポイントマクロ・PowerPoint VBAの使い方」の記事一覧