セル範囲をコピー
図としてペースト
ペーストされた図形を選択
記録マクロで書くと下記のようになります。
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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
VBA Shapes コピーと名前
Excel(エクセル)
-
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
-
4
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
5
【VBA】3個の図形をコピーしてSheet2に貼り付けたい
Excel(エクセル)
-
6
マウスで選択した図形のみVBAで移動したい。
Visual Basic(VBA)
-
7
エクセルVBAで画像を貼り付ける座標設定方法は?
PowerPoint(パワーポイント)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
Excelの任意セル上に図形がのっているかどうか?
Excel(エクセル)
-
10
エクセルVBAですが教えてください。オートシェイプがコピーされません。
Excel(エクセル)
-
11
特定の名前のオートシェイプの有無を知りたい(エクセルVBA)
Excel(エクセル)
-
12
画像を削除したい(VBA)
Word(ワード)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
VBAのテキストボックスに文字列を貼り付ける方法
Access(アクセス)
-
15
【EXCEL VBA】オートシェイプをクリックした時にそのオートシェイプの名前を取得したい
Visual Basic(VBA)
-
16
エクセルVBAでフォームのListboxをスクロールするには?
その他(Microsoft Office)
-
17
VBAのロジックでEXCEL上にShape図形があるかないかをチェック
Excel(エクセル)
-
18
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
19
VBAエクセルに貼り付けた画像をセルにあった大きさにしたい(等倍)
Excel(エクセル)
-
20
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでセルの選択範囲を指定する...
-
セル入力文字が、「右のセルに...
-
Word2016でExcelデータを差込し...
-
エクセル、ページをまたがった...
-
パワポの複数ページにまたがる...
-
ワードの表の行が広がってしまう
-
エクセルで知らない間に行がず...
-
PowerPointの表の罫線を二重罫...
-
あるセルに色を付けた時、別の...
-
【Excel VBA】CSV取込時、数字...
-
Wordでセルに文字を入力すると...
-
ワードの表を図にして、ワード...
-
ワードの表の列幅を文字ぎりぎ...
-
EXCELで2つのシートから一致し...
-
Wordで、表のセルが変なところ...
-
ワードで勝手に点線ラインがでる
-
ワードの文章囲み枠(?)を消...
-
エクセルでセルの中の文字が削...
-
wordで罫線が引けない・・・
-
エクセル 結合したセルの間にセ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 図形の選択法は?
-
PageBreak プロパティを設定で...
-
(VBA)指定したセルがアクティブ...
-
日別の時間割を週別に分割して...
-
TextBoxにExcelの背景色を取得
-
VBA 選択したセルが空白であっ...
-
顧客ごとに違う点検案内を作成...
-
Excelマクロ
-
マクロでの並び替え
-
【Excel VBA】Caseマクロを簡潔...
-
マクロについて教えてください
-
Excelの最終列までの転記について
-
VBAでセルの選択範囲を指定する...
-
セル入力文字が、「右のセルに...
-
エクセル、ページをまたがった...
-
パワポの複数ページにまたがる...
-
Word2016でExcelデータを差込し...
-
【Excel VBA】CSV取込時、数字...
-
ワードの文章囲み枠(?)を消...
-
wordで罫線が引けない・・・
おすすめ情報