Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » 前面配置のShapeのみサイズ変更するWordマクロ

前面配置のShapeのみサイズ変更するWordマクロ

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

「word VBA 前面表示の図のサイズ変更」
といった検索キーワードで、このサイト『インストラクターのネタ帳』へアクセスがありました。

Word文書内に、さまざまな文字列の折り返し設定が行われているShapeが存在するときに、前面に設定されているものだけ、Word VBAでサイズ変更したいということでしょうか。

［スポンサードリンク］

前面配置のShapeのみサイズ変更するサンプルマクロ

以下のWordマクロを実行すると、アクティブ文書内の前面配置のShapeのみ、100ポイント×100ポイントにサイズ変更されます。

Sub 前面配置のShapeのみサイズを変更する()
　Dim shp As Shape
　For Each shp In ActiveDocument.Shapes
　　If shp.WrapFormat.Type = wdWrapFront Then
　　　shp.Width = 100
　　　shp.Height = 100
　　End If
　Next
End Sub

サンプルマクロで行っている処理について

ShapeオブジェクトやShapeRangeオブジェクトに用意されているWrapFormatプロパティを使うと、

文字列の折り返し設定を表すWrapFormatオブジェクトを取得できます。

WrapFormatオブジェクトに用意されているTypeプロパティを使うと、

文字列の折り返しがどう設定されているかを表す、WdWrapType列挙型に定義されている定数を取得できます。

このことを利用して、上記のサンプルマクロでは、アクティブ文書内の全Shapeに対してFor Each～Nextループを回して、

Dim shp As Shape
For Each shp In ActiveDocument.Shapes

前面に配置されていることを示す定数wdWrapFrontが戻り値のShapeのみ、Widthプロパティ・Heightプロパティを使ってサイズを変更しています。

　If shp.WrapFormat.Type = wdWrapFront Then
　　shp.Width = 100
　　shp.Height = 100

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » 前面配置のShapeのみサイズ変更するWordマクロ

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


「Shape・図形」の記事一覧

検索


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

.