[[20230831163300]]　『すべてのワークシートに図を貼り付ける』（りりあん）　ページの最後に飛ぶ

『すべてのワークシートに図を貼り付ける』（りりあん）

 先頭のワークシートに挿入した図を２枚目以降のワークシート
 すべてに貼り付けるマクロを教えて頂けないでしょうか?

 ファイルの保存先はディスク上のstamp.jpgファイルになります。

 とりあえず先頭のワークシートに挿入したマクロは作成しましたが
 ２枚目以降のワークシートに貼り付けるコードがわからないので
 ご教授いただけないでしょうか?

 Sub 図の挿入()
    Range("T15").Select
    Worksheets(1).Pictures.Insert("C:\Users\〇〇〇\Desktop\moon.jpg").Select
 End Sub

※

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

すみません質問の途中で更新されてしまいました。

改めて質問させてください。
（りりあん） 2023/08/31(木) 16:42:30

 先頭のワークシートに挿入した図を２枚目以降のワークシート
 すべてに貼り付けるマクロを教えて頂けないでしょうか?

 ファイルの保存先はディスク上のstamp.jpgファイルになります。

 とりあえず先頭のワークシートに挿入したマクロは作成しましたが
 ２枚目以降のワークシートに貼り付けるコードがわからないので
 ご教授いただけないでしょうか?

 Sub 図の挿入()
    Range("T15").Select
    Worksheets(1).Pictures.Insert("C:\Users\〇〇〇\Desktop\stamp.jpg").Select
 End Sub

 ※〇〇〇の部分は私のユーザー名が入る部分です。

 よろしくお願いします。
（りりあん） 2023/08/31(木) 16:45:09

追記:コピーしたい図はT15セルに挿入された図になります。

（りりあん） 2023/08/31(木) 16:47:50

    Sub 雑例()
        Dim p As Picture, s As Worksheet
        Set p = Worksheets(1).Pictures.Insert("C:\Users\xxx\Desktop\moon.jpg")
        p.Cut                       '挿入した図を一旦カットし、
        For Each s In Worksheets    '改めて全シートに対して貼り直す
            s.Paste s.Range("T15")  '(非表示シートとかあっても知らん)
        Next
    End Sub

（白茶） 2023/08/31(木) 19:45:28

白茶さま

ありがとうございました。
明日からの作業がはかどります。(*'ω'*)
（りりあん） 2023/08/31(木) 20:07:01

コメント返信：

[ 一覧(最新更新順) ]

[[20230831163300]] 『すべてのワークシートに図を貼り付ける』（りりあん） ページの最後に飛ぶ

[[20230831163300]]　『すべてのワークシートに図を貼り付ける』（りりあん）　ページの最後に飛ぶ