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