![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_04.png?5a7ff87)
セル範囲をコピー
図としてペースト
ペーストされた図形を選択
記録マクロで書くと下記のようになります。
Sub Macro1()
Range("G2:K15").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Pictures.Paste.Select
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
End Sub
・場所を指定してペーストするのは、事前にselectする必要あるのでしょうか?
・挿入された図の名前がPicture1と分ってないと選択出来ません。他に方法あるのでしょうか?
図は複数あり、たった今ペーストした図形を選択したいのです。
参考になるURLあるいは書籍はないでしょうか?
No.2
- 回答日時:
> たった今ペーストした図形を選択したいのです。
最短、こんなコードでも。
Sub Macro1()
Range("G2:K15").Copy
ActiveSheet.Pictures.Paste.Select ' アクティブセルに貼り付けて、その図を選択。
End Sub
No.1
- 回答日時:
>場所を指定してペーストするのは、事前にselectする必要あるのでしょうか?
アクティブな場所にしか挿入できないからです。
>・挿入された図の名前がPicture1と分ってないと選択出来ません。他に方法あるのでしょうか?
挿入する際にSelectしたセルの上端左端アドレスを取得し、一致した場合にセレクトすればよいです。
下記コードはセルA1~A2の範囲をコピーし、セルD1~D2に画像として貼り付け、その後、シート内の画像を1つずつ選択し、その左端上端セルのアドレスが貼り付けたセル(D1)と同じであれば選択をするマクロです。
Debug.Print objPic.TopLeftCell.Addressは確認用ですので、実際に組み込むときには削除してください
Sub sample()
Dim objPic As Object
Range(Cells(1, 1), Cells(2, 1)).Copy
Range(Cells(1, 4), Cells(2, 4)).Select
ActiveSheet.Pictures.Paste.Select
For Each objPic In ActiveSheet.Pictures
Debug.Print objPic.TopLeftCell.Address
If objPic.TopLeftCell.Address = Cells(1, 4).Address Then _
objPic.Select
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Excel(エクセル) excelVBAについて。 8 2022/12/11 13:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
VBA Shapes コピーと名前
Excel(エクセル)
-
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
-
4
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
5
エクセルVBAで画像を貼り付ける座標設定方法は?
PowerPoint(パワーポイント)
-
6
エクセルVBAでセル番地を指定してオブジェクト名取得
Excel(エクセル)
-
7
Excel(VBA)
Excel(エクセル)
-
8
【VBA】3個の図形をコピーしてSheet2に貼り付けたい
Excel(エクセル)
-
9
マウスで選択した図形のみVBAで移動したい。
Visual Basic(VBA)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
エクセルVBAですが教えてください。オートシェイプがコピーされません。
Excel(エクセル)
-
12
VBAで選択した画像を貼り付けたい
Excel(エクセル)
-
13
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
14
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
-
15
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
16
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
17
エクセルでエラーが出て困っています。
Excel(エクセル)
-
18
VBAのテキストボックスに文字列を貼り付ける方法
Access(アクセス)
-
19
Excel VBA インデックスの境界について
Excel(エクセル)
-
20
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
日別の時間割を週別に分割して...
-
PageBreak プロパティを設定で...
-
エクセルVBA 図形の選択法は?
-
セル入力文字が、「右のセルに...
-
ワードの表の罫線が見えるけど...
-
あるセルに色を付けた時、別の...
-
パワポの複数ページにまたがる...
-
パワーポイントの表
-
表と票の違いは?
-
エクセルで知らない間に行がず...
-
【Excel VBA】CSV取込時、数字...
-
エクセル、ページをまたがった...
-
Word2016でExcelデータを差込し...
-
ワードの文章囲み枠(?)を消...
-
PowerPointの表の罫線を二重罫...
-
Wordで、表のセルが変なところ...
-
ワードの表の行が広がってしまう
-
ワードで勝手に点線ラインがでる
-
wordで罫線が引けない・・・
-
ワードの表の列幅を文字ぎりぎ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 図形の選択法は?
-
PageBreak プロパティを設定で...
-
(VBA)指定したセルがアクティブ...
-
顧客ごとに違う点検案内を作成...
-
VBA 選択したセルが空白であっ...
-
VBAでセルの選択範囲を指定する...
-
TextBoxにExcelの背景色を取得
-
日別の時間割を週別に分割して...
-
Excelの最終列までの転記について
-
セル入力文字が、「右のセルに...
-
パワポの複数ページにまたがる...
-
エクセル、ページをまたがった...
-
ワードの文章囲み枠(?)を消...
-
Word2016でExcelデータを差込し...
-
Wordで、表のセルが変なところ...
-
【Excel VBA】CSV取込時、数字...
-
ワードの表の行が広がってしまう
-
パワーポイントの表
-
wordで罫線が引けない・・・
-
ワードで勝手に点線ラインがでる
おすすめ情報