Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Shapesコレクション・Shapeオブジェクト » 直線の情報を取得するPowerPointマクロ

直線の情報を取得するPowerPointマクロ

対象：PowerPooint2007, PowerPooint2010, PowerPooint2013

「powerpoint vba 選択した直線のプロパティ値」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

選択されている直線の、何からの情報を得るPowerPoint VBA（Visual Basic for Applications）のコードを探している方による検索です。

「直線のプロパティ値」
という検索キーワードが使われていることから、PowerPointのオブジェクトモデルが、まだ明確にはなっていない方による検索だと推測しています。

［スポンサードリンク］

直線の情報を取得するサンプルマクロ

「直線のプロパティ値」
というキーワードでは、直線のどんな情報を取得したいのかがわかりませんので、参考になりそうなマクロをご紹介しておきます。
Sub 直線の情報を取得する()
　With ActiveWindow.Selection
　If .Type = ppSelectionShapes Then
　　With .ShapeRange(1)
　　If .Type = msoLine Then
　　　Debug.Print _
　　　　.Top; _
　　　　.Left; _
　　　　.Height; _
　　　　.Width
　　　With .Line
　　　　Debug.Print _
　　　　　.Weight; _
　　　　　.ForeColor; _
　　　　　.DashStyle
　　　End With '.Line
　　End If
　　End With '.ShapeRange(1)
　End If
　End With ' ActiveWindow.Selection
End Sub

上記のマクロを実行すると、直線が選択されていたときに、さまざまな情報がイミディエイトウィンドウに出力されます。

サンプルマクロの解説

選択されているものが、Shape・図形だったときに、
　　With ActiveWindow.Selection
　　If .Type = ppSelectionShapes Then

選択されている一つ目の図形の種別を調べて直線だったときに、さまざまな情報の出力を開始します。
　　　With .ShapeRange(1)
　　　If .Type = msoLine Then

まず、左上の位置と、高さと幅を出力して、
　　　　Debug.Print _
　　　　　.Top; _
　　　　　.Left; _
　　　　　.Height; _
　　　　　.Width

その後、太さ・色・点線のスタイルを出力しています。
　　　　With .Line
　　　　　Debug.Print _
　　　　　　.Weight; _
　　　　　　.ForeColor; _
　　　　　　.DashStyle

「直線のプロパティ値」
と表現されているものは、Shapeオブジェクトの何らかのプロパティか、

直線の情報を取得するPowerPointマクロ

ShapeオブジェクトのLineプロパティで取得できるLineFormatオブジェクトの、何らかのプロパティではないか

直線の情報を取得するPowerPointマクロ

と想像しています。

上記のマクロで取得しているプロパティ以外のプロパティが取得したい場合は、ShapeオブジェクトまたはLineFormatオブジェクトのヘルプから該当するプロパティがないかを探してみてください。

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

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Shapesコレクション・Shapeオブジェクト » 直線の情報を取得するPowerPointマクロ

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


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

検索


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

.