|
貼り付けるたびに移動させるのは、止むを得ないと思いますが、
マクロの自動記録で出てくるコードのように、不特定の貼り付け位置から
移動する距離のみを指定するようなやり方でなく、目標のセルを基準とした
"絶対的座標"を指定して移動させることは出来ます
>セル"A1"の定められた位置(例えば中心)
に配置するなら
Sub Copy_MyObject()
Dim Lp As Single, Tp As Single
With Worksheets("A").DrawingObjects
If .Count = 0 Then Exit Sub
.Item(1).Copy
End With
With Worksheets("B")
.DrawingObjects.Delete
With .Range("A1")
Lp = .Width / 2
Tp = .Height / 2
End With
.Activate
.Paste
With .DrawingObjects(1)
.Left = Lp: .Top = Tp
End With
.Range("A1").Select
End With
Application.CutCopyMode = False
End Sub
|
|