Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » Word VBAで画像を背面に

Word VBAで画像を背面に

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

画像の文字列の折り返しを背面にするSubプロシージャ

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

Word VBAを使って、画像の文字列の折り返しを背面に設定するには、どのようなコードを書けばいいのかを探していらしたのでしょうか。

画像の文字列の折り返しを背面にするサンプルマクロ

以下のWordマクロを実行すると、アクティブなページ上に存在する画像の、文字列の折り返しが背面に設定されます。

Sub 画像の文字列の折り返しを背面にする()
　Dim shp As Shape
　For Each shp In ActiveDocument.Bookmarks("\Page").Range.ShapeRange
　　If shp.Type = msoPicture Then
　　　shp.WrapFormat.Type = wdWrapBehind
　　End If
　Next
End Sub

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

上記のWordマクロで行っている処理は、以下のとおりです。

拙著『Excel VBAユーザーのためのWord VBA入門（1）』の「8-1. アクティブページを表すRangeを取得する」でも解説している、Bookmarkオブジェクトに用意されているRangeプロパティで取得した、

Word.Bookmark.Range

For Each shp In ActiveDocument.Bookmarks("\Page").Range.ShapeRange

アクティブなページを表すRangeオブジェクトのShapeRangeプロパティを使って取得できる、

Word.Range.ShapeRange

For Each shp In ActiveDocument.Bookmarks("\Page").Range.ShapeRange

アクティブページ上に存在する全ShapeをFor Each～Nextループを使って順番に処理をします。

Dim shp As Shape
For Each shp In ActiveDocument.Bookmarks("\Page").Range.ShapeRange

For Each～Nextループで取得したShapeのTypeプロパティを確認して、

Word.Shape.Type

画像だったときに、

　If shp.Type = msoPicture Then

WrapFormatオブジェクトのTypeプロパティに、

Word.WrapFormat.Type

WdWrapType列挙型に定義されている定数wdWrapBehindを指定することで、

Word.WrapFormat.Type

文字列の折り返しを背面に設定しています。

　　shp.WrapFormat.Type = wdWrapBehind
Excel VBAユーザーのためのWord VBA入門（1）: Document・Range・Selectionの基本編
伊藤潔人 2021-02-17
Amazon


最終更新日時：2022-07-27 11:50

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » Shape・図形 » Word VBAで画像を背面に

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓
3年前(2021年4月)の
人気記事
1位:Windows 10で手書き入力するIMEパッドを表示するには
2位:IF関数で○○以上××以下という条件を指定する
3位:右から（後から・末尾から）n文字を削除したい
4位:IF関数で空白なら空白にする
5位:COUNTIF関数で「○○以上」「○○以下」の指定
6位:IF関数で空白でない場合・空白でなければの書き方
7位:左から（前から・先頭から）n文字削除する方法



「Shape・図形」の記事一覧

検索


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

.