Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7019 / 13646 ツリー ←次へ | 前へ→

【41719】図の貼り付け位置について ばっじぉ 06/8/21(月) 13:32 質問[未読]
【41728】Re:図の貼り付け位置について Kein 06/8/21(月) 16:17 回答[未読]
【41731】Re:図の貼り付け位置について ばっじぉ 06/8/21(月) 16:41 お礼[未読]

【41719】図の貼り付け位置について
質問  ばっじぉ  - 06/8/21(月) 13:32 -

引用なし
パスワード
   初投稿させて頂きます、ばっじぉです。
よろしくお願いいたします。

Aシートにて作成された図1を、Bシートのセル"A1"の定められた位置(例えば中心)に貼り付けたいのですが、
貼り付け位置の指定ができず、貼り付けるたびに移動をさせています。

「セルの○○(位置指定)に貼り付ける」

というような指定はできるのでしょうか?
どなたかご教授お願いします。

【41728】Re:図の貼り付け位置について
回答  Kein  - 06/8/21(月) 16:17 -

引用なし
パスワード
   貼り付けるたびに移動させるのは、止むを得ないと思いますが、
マクロの自動記録で出てくるコードのように、不特定の貼り付け位置から
移動する距離のみを指定するようなやり方でなく、目標のセルを基準とした
"絶対的座標"を指定して移動させることは出来ます
>セル"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

【41731】Re:図の貼り付け位置について
お礼  ばっじぉ  - 06/8/21(月) 16:41 -

引用なし
パスワード
   ▼Kein さん:
>マクロの自動記録で出てくるコードのように、不特定の貼り付け位置から
>移動する距離のみを指定するようなやり方でなく、目標のセルを基準とした
>"絶対的座標"を指定して移動させることは出来ます

なるほど!の一言です。
考え方を変えれば色んな方法があるのですね!
ありがとうございました!

7019 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free