Msdn フォーラムにあった質問「複数図形のグループ化」の回答用に書いたコードです。
Option Explicit
Public Sub Sample()
ActiveDocument.Bookmarks("\Page").Range.ShapeRange.Group
End Sub
実行すると、下図のようにアクティブなページにあるシェイプを一括でグループ化します。
Wordマクロにおいて、ページ単位で何かを処理するときは、“定義済みのブックマーク”である「\Page」を使うのが便利です。
この記事へのトラックバックはありません。
Office アドインやOffice スクリプト、リボンのカスタマイズに関する話題を中心に情報発信しています。 Microsoft MVP(Office Development) July 2016 -
Copyright © 初心者備忘録 All rights reserved.
この記事へのコメントはありません。