[[20170805165732]]　『図形のコピーと貼り付け位置』（こしくん）　ページの最後に飛ぶ

『図形のコピーと貼り付け位置』（こしくん）

図形で作成した丸文字をセルの右端中央に貼り付けています。この図形をコピーし、別のセルに貼り付けたときにもセルの右端中央に貼り付けられるようにするには、どのように設定すれば良いのかお教え下さい。今はコピーして貼り付けても、コピー先のセルの左端の上に配置されてしまい、その都度カーソルで移動させなければなりません。
宜しくお願いいたします。

＜使用 Excel：Excel2007、使用 OS：Windows10 ＞

右クリックの「ここにコピー」で目的の位置にできませんか。
少しずれちゃうかもしれませんが…

（マナ） 2017/08/05(土) 18:42

以下の手順でできます。
1.コピー先のセルのデータをどこかに避難させておきます。
2.もとの図形があるセルをコピーします(図形ではなくセルを選択してコピーします)。
3.コピー先のセルに貼り付けます。
4.セルにデータを戻します。
（:;:;:;:;:;） 2017/08/05(土) 19:35

 横から失礼します。

 マクロ案です。

 貼付け先のセルを選択した後にコピーしたいシェイプを選択し実行します。
 順番を間違ったらうまく働きません。

 Sub test()
  Dim shp As Object
  Dim newshp As Object
  Dim mycell As Range
   If TypeName(Selection) = "Range" Then Exit Sub
   Set shp = Selection.ShapeRange
   ActiveCell.Activate
   Set mycell = ActiveCell
   Set newshp = shp.Duplicate
   With newshp
    .Left = mycell.Left + mycell.Width - shp.Width
    .Top = mycell.Top + mycell.Height / 2 - shp.Height / 2
   End With
   Set newshp = Nothing
   Set shp = Nothing
   Set mycell = Nothing
 End Sub
（カリーニン） 2017/08/05(土) 20:17

早速の解答ありがとうございました。

マナさんの「ここにコピー」は、項目が出てきませんでした。

;: ;:;:;:;さんのセル全体のコピーは出来ますが、コピー先が多くあり、セルの中にデータも入っているため、一つ一つ避難させては手間がかかりますので、図形のみコピー出来ればと思います。

カリーニンさんのマクロは、私にとってハードルが高いです。
お手数をお掛けしました。
（こしくん） 2017/08/05(土) 21:05

セルが多いのなら、

1.シートのA1の左上をクリックして全体を選択、コピー
2.新しいシートに貼り付け
3.もとのシート上で前述の方法で必要なセルに図形をコピー
4.新しいシート全体をコピー
5.もとのシートに「数式と数値の書式」または「元の書式を保持」を選択して貼り付ける

という手もあります。

（:;:;:;:;:;） 2017/08/06(日) 01:06

 マクロ案はボツだと思いますが、マクロ実行を簡易にしたバージョンです。

 シェイプに↓を登録し、コピー先のセルをアクティブにした状態でシェイプ
 をクリックするとクリックしたシェイプをコピーします。
 コピーしたシェイプにもマクロが登録されてますので、さらにそのシェイプ
 をコピー、というのも出来ます。

 Sub test()
  Dim shp As Object
  Dim newshp As Object
  Dim mycell As Range
   If TypeName(Selection) <> "Range" Then Exit Sub
   Set mycell = ActiveCell
   Set shp = ActiveSheet.Shapes(Application.Caller)
   Set newshp = shp.Duplicate
   With newshp
    .Left = mycell.Left + mycell.Width - shp.Width
    .Top = mycell.Top + mycell.Height / 2 - shp.Height / 2
   End With
   Set newshp = Nothing
   Set shp = Nothing
   Set mycell = Nothing
 End Sub
（カリーニン） 2017/08/06(日) 10:13

コメント返信：

[ 一覧(最新更新順) ]

[[20170805165732]] 『図形のコピーと貼り付け位置』（こしくん） ページの最後に飛ぶ

[[20170805165732]]　『図形のコピーと貼り付け位置』（こしくん）　ページの最後に飛ぶ