[[20200410095346]]　『写真の貼り付け』（T）　ページの最後に飛ぶ

『写真の貼り付け』（T）

ブックAとブックBがあったとしてブックAの各シートの全写真をブックBの同じシート番号同じ位置に同じ大きさで貼り付ける処理を教えていただけないでしょうか。

この処理を複数ファイルに応用したいので、単体にしか使えないやり方は好ましくないです。
よろしくお願い致します。

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

 Sub test()
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim iLeft As Single
    Dim iTop As Single
    Dim i As Long
    Dim j As Long

    Set wb1 = Workbooks.Open("c:\tmp\BookA.xlsx")
    Set wb2 = Workbooks.Open("c:\tmp\BookB.xlsx")

    For i = 1 To wb1.Sheets.Count
        For j = 1 To wb1.Sheets(i).Pictures.Count
            With wb1.Sheets(i).Pictures(j)
                iLeft = .Left
                iTop = .Top
                .Copy
            End With
            wb2.Sheets(i).Paste
            With wb2.Sheets(i).Pictures(wb2.Sheets(i).Pictures.Count)
                .Left = iLeft
                .Top = iTop
            End With
        Next j
    Next i

    wb2.Save
    wb2.Close
    wb1.Close
 End Sub
（???） 2020/04/10(金) 15:09

 >ブックAとブックBがあったとしてブックAの各シートの全写真をブックBの同じシート番号同じ位置に同じ大きさで貼り付ける

ブックAをブックBの名前で上書き保存したらいいんじゃないですか？
それかシート丸ごとコピーしてぶっくBに挿入するとか。

（まっつわん） 2020/04/10(金) 16:10

自動で関係者全員分の印影画像をコピーするとか、シート自体はコピーしたくないのでしょうね。
（???） 2020/04/10(金) 16:19

???様

返信遅れてすみません。さすがです！完璧です。
申し訳ないですが、一つエッセンスを加えたのです。
ブックAのシート数は不確定として、ブックAの最初と最後（右端）のシートの写真のみを、
ブックBのシート１にブックAの最初のシートの写真を張り付け、シート２に最後のシートに貼り付けるみたいなことも可能でしょうか？

宜しくお願い致します。

（T） 2020/04/13(月) 14:39

 >ブックAのシート数は不確定として、ブックAの最初と最後（右端）のシートの写真のみを、 
 >ブックBのシート１にブックAの最初のシートの写真を張り付け、シート２に最後のシートに貼り付

 >For i = 1 To wb1.Sheets.Count
 >    For j = 1 To wb1.Sheets(i).Pictures.Count

 For i = 1 To wb1.Sheets.Count Step wb1.Sheets.Count - 1
     K = K + 1
     For j = 1 To wb1.Sheets(i).Pictures.Count

 >wb2.Sheets(i).Paste
 >    With wb2.Sheets(i).Pictures(wb2.Sheets(i).Pictures.Count)

 wb2.Sheets(k).Paste
     With wb2.Sheets(k).Pictures(wb2.Sheets(k).Pictures.Count)

（通行人） 2020/04/13(月) 15:39

返信遅れました。すみません。
.Left = iLeft
のところで、
pictureクラスのleftメソッドがプロパティを取得出来ませんと出ました。
なぜでしょうか。
（K） 2020/04/14(火) 19:52

エラー抜け処理を使うべきでしょうか？
（K） 2020/04/15(水) 16:36

 質問の続きは別サイトでやることにしたようですねぇ
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10223150985

 名前は変えてるけど、別サイトのこの人の質問一覧を見ると
[[20200408181719]] と同じ人のようですなぁ

 前のスレッドで別サイトのリンクは貼るなといわれたけどねぇ
 知ってた方がいいよねぇ
（おいおい） 2020/04/16(木) 08:50

回答者にとっては、別サイトのリンクは他でどう進行しているか判るので、大歓迎です。

ふむふむ、出典元を明らかにせず、あたかも自分で書いたコードであるかのように提示してますね。私が親告すれば犯罪扱いされるのを理解しているのでしょうか？コードを直してくれた通行人さんへの言葉も無いし、自分さえ良ければ後はどうだって良いとでも思っているのでしょうね。がっかりです。

そもそも、Leftメソッドではなく、Leftはプロパティなので、そんなエラーメッセージが表示されるはずがないし、誰からも相手にされないような気がします。エラー番号とメッセージは正しく伝えないとね。
（???） 2020/04/16(木) 10:47

こんなところにも。
https://www.moug.net/faq/viewtopic.php?t=79335
（ひでお） 2020/04/17(金) 10:29

コメント返信：

[ 一覧(最新更新順) ]

[[20200410095346]] 『写真の貼り付け』（T） ページの最後に飛ぶ

[[20200410095346]]　『写真の貼り付け』（T）　ページの最後に飛ぶ