PowerPoint VBAで図形の縦横比を固定しないように－LockAspectRatioプロパティ

動作検証バージョン：64bit Windows 10 Pro + 32bit PowerPoint（バージョン2110 ビルド14527.20234 Microsoft Store）

「パワーポイント図形縦横比変更 macro」
という検索でアクセスがありました。

PowerPoint VBAを使って、Shapeの横幅だけを変更しようと、例えば、

　With ActivePresentation.Slides(1).Shapes(1)
　　.Width = .Width * 1.5
　End With

といったコードを実行したものの、高さも連動して1.5倍になってしまったのでしょうか。

［スポンサードリンク］

図形の縦横比を固定しないで横幅を変更するサンプル

以下のコードを試してみてください。

Sub 図形の縦横比を固定しないで横幅を変更する()
　With ActivePresentation.Slides(1).Shapes(1)
　　.LockAspectRatio = msoFalse
　　.Width = .Width * 1.5
　End With
End Sub

アクティブプレゼンテーション先頭スライド1つ目の図形の横幅のみが、1.5倍になります。

ShapeオブジェクトやShapeRangeオブジェクトに用意されているLockAspectRatioプロパティで、

PowerPoint.Shape.LockAspectRatio

縦横比を固定するかどうかを取得・設定できます。

LockAspectRatioがmsoTrueの場合、縦横比が固定された状態になります。

先ほどのSubプロシージャのように、LockAspectRatioプロパティにmsoFalseを指定すれば、縦横比が固定されない状態になります。

［スポンサードリンク］

『インストラクターのネタ帳』では、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オブジェクト」の記事一覧