Word文書に図形を挿入して位置を調整したいけれど、VBA（Visual Basic for Applications）を使うのは難しそうと思っていませんか？でも大丈夫、今回は初心者の方でもわかりやすく、Word VBAで図形の位置を自在に操作する方法をご紹介します。これを読めば、図形をページの好きな場所にピタッと配置できるようになりますよ！
Word VBAで図形の位置を設定する基本のキ
Wordのイメージ
まずは、Word VBAで図形の位置を設定するための基本的なコードをご紹介します。これを使えば、図形をページの上部や左端に配置することができます。
Sub 図形の位置を設定()
Dim shp As Shape
Set shp = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 100, 100, 200, 100)
With shp
.Top = CentimetersToPoints(2) ' 上から2cmの位置に配置
.Left = CentimetersToPoints(3) ' 左から3cmの位置に配置
End With
End Sub
このコードでは、長方形の図形を文書に追加し、その位置を上から2cm、左から3cmの位置に設定しています。
ポイントは、
CentimetersToPoints
関数を使って、センチメートル単位で指定しているところです。
これで、図形をページ上の指定した位置に配置することができます。
図形の位置を段落やページに合わせて調整する方法
図形をページの特定の位置に配置するだけでなく、段落やページに合わせて位置を調整することもできます。これにより、文書のレイアウトがさらに整います。
Sub 図形の位置を段落に合わせる()
Dim shp As Shape
Set shp = ActiveDocument.Shapes.AddShape(msoShapeOval, 100, 100, 100, 100)
With shp
.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph ' 段落に対して位置を設定
.Top = CentimetersToPoints(1) ' 上から1cmの位置に配置
.RelativeHorizontalPosition = wdRelativeHorizontalPositionLeftMargin ' 左マージンに対して位置を設定
.Left = CentimetersToPoints(2) ' 左から2cmの位置に配置
End With
End Sub
このコードでは、楕円形の図形を文書に追加し、その位置を段落と左マージンに対して相対的に設定しています。
RelativeVerticalPosition
と
RelativeHorizontalPosition
を使うことで、図形の位置をより柔軟に調整することができます。
図形の位置をページの特定の場所に固定する方法
図形をページの特定の場所に固定したい場合、ページの範囲を指定して図形を配置する方法があります。これにより、文書の内容が変更されても、図形の位置がずれにくくなります。
Sub 図形の位置をページに固定()
Dim shp As Shape
Dim pg As Range
Set pg = ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, 1) ' 1ページ目を指定
Set shp = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 100, 100, 200, 100)
With shp
.Anchor = pg ' ページの範囲に図形を固定
.Top = CentimetersToPoints(2) ' 上から2cmの位置に配置
.Left = CentimetersToPoints(3) ' 左から3cmの位置に配置
End With
End Sub
このコードでは、1ページ目の範囲を指定し、その範囲に図形を固定しています。
Anchor
プロパティを使うことで、図形をページの特定の場所に固定することができます。
よくある質問や疑問
Q1: VBAのコードを実行するにはどうすればいいですか？
VBAのコードを実行するには、まずWordで「Alt + F11」を押してVBAエディタを開きます。新しいモジュールを挿入し、そこにコードを貼り付けて実行することができます。
Q2: 図形のサイズを変更するにはどうすればいいですか？
図形のサイズを変更するには、
Width
と
Height
プロパティを使います。例えば、
shp.Width = CentimetersToPoints(5)
とすることで、図形の幅を5cmに設定できます。
Q3: 複数の図形を一度に配置するにはどうすればいいですか？
複数の図形を一度に配置するには、
For Each
ループを使って、各図形の位置を設定することができます。例えば、複数の図形をページの上部に並べることができます。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
今回は、Word VBAを使って図形の位置を自在に操作する方法をご紹介しました。
VBAを使うことで、手作業では難しい図形の配置も簡単に行うことができます。
ぜひ、今回ご紹介したコードを試してみて、あなたの文書作成に役立ててくださいね！
他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント