word 貼り付けの位置指定

質問

wordにてオートシェイプの図形
例えば長方形を貼り付けするのに、
図形をコピーして張り付けると元の図形の近くに
はりつくが、貼り付ける位置をここというように
させることはできないか。

回答No.2

misatoanna · ベストアンサー

一般機能での設定はできないと思いますので、マクロを書いてみました。

> 貼り付ける位置をここというように

ここ、の指定をどうするかが問題ですが、「文字入力用カーソル位置」と
いうことにしました。

Sub Test()
　Dim CurV, CurH, PTop, PLft
　Application.ScreenUpdating = False
　'カーソル位置の座標を、用紙の上辺と左辺を起点にして取得します。
　CurV = Selection.Information(wdVerticalPositionRelativeToPage)
　CurH = Selection.Information(wdHorizontalPositionRelativeToPage)
　Selection.Paste
　On Error GoTo Er
　With Selection.ShapeRange
　　'貼り付けた図形の座標を、用紙の上辺と左辺を起点にして取得します。
　　.RelativeVerticalPosition = wdRelativeVerticalPositionPage
　　.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
　　PTop = .Top
　　PLft = .Left
　　'カーソル位置と図形位置の差分だけ、図形を移動します。
　　.IncrementTop (CurV - PTop)
　　.IncrementLeft (CurH - PLft)
　End With
Er: Application.ScreenUpdating = True
End Sub

お礼

うまくいきました。使わせてもらいます。どうもありがとうございました。

回答No.3

misatoanna

＃２の補足です。

マクロを標準モジュールに記述したら、ツールバーに登録します。
図形をコピー・貼り付けするときは、図形をコピーし、貼り付ける位置にカーソルを
置いて、登録したボタンをクリックします。

回答No.1

xls88

回答が付かないですね。
「無い」ということかもしれませんね。

マクロを使って貼り付け後移動すればどうでしょうか。