Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » Word VBAのLockAspectRatioとは

Word VBAのLockAspectRatioとは

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

「wordマクロshape lockaspect」
という検索キーワードでアクセスがありました。

Word VBAのShapeオブジェクト等に用意されているLockAspectRatioプロパティについて調べていた方による検索でしょうか。

［スポンサードリンク］

LockAspectRatioは縦横比を固定するかどうかを設定するプロパティ

LockAspectRatioプロパティは、アスペクト比（縦と横の比率）を固定するかどうかを取得/設定するためのプロパティです。

LockAspectRatioプロパティにmsoTrueを指定した場合は縦横比が固定され、msoFalseを指定した場合には縦横比が固定されません。

LockAspectRatioを確認するためのサンプルマクロ

新規Word文書に、画像を浮動オブジェクトとして1つ挿入しておいてから、以下のWordマクロを実行してみてください。

Sub LockAspectRatioを確認する()
　Dim shp As Shape
　Set shp = ActiveDocument.Shapes(1)
　shp.LockAspectRatio = msoTrue
　shp.ScaleWidth _
　　　Factor:=0.5, _
　　　RelativeToOriginalSize:=msoFalse
End Sub

LockAspectプロパティにmsoTrueを指定してから、

　shp.LockAspectRatio = msoTrue


Shapeオブジェクトに用意されているScaleWidthメソッドの引数を、


　　Factor:=0.5, _
　　RelativeToOriginalSize:=msoFalse

と指定しているので、画像の横幅が半分になります。ScaleWidthメソッドは名前のとおり横幅を拡大/縮小するためのメソッドですが、

　shp.LockAspectRatio = msoTrue

と縦横比を固定しているため、高さも半分になります。

LockAspectRatioの効果を確認する

つづいて、

shp.LockAspectRatio = msoTrue

の部分を、

shp.LockAspectRatio = msoFalse

に変更してから、再度実行してみてください。

今度は、縦横比が固定されていないため、横幅だけが半分になります。

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » Word VBAのLockAspectRatioとは

『インストラクターのネタ帳』では、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ユーザーに向けに書きました↓↓


「Shape・図形」の記事一覧

検索


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

.