Excel VBA質問箱 IV

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

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


40111 / 76738 ←次へ | 前へ→

【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
0 hits

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

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