VBA Inter-Workbook-Aktionen- Fehler jedes Mal, wenn ich etwas beheben

Question

Ich habe einige ziemlich einfache Code, aber ich laufe immer wieder in Fehler, wenn ich etwas beheben. Ich bin mir nicht sicher, ob ich etwas völlig falsch mache. Ich versuche nur, einen Bereich von Zellen aus einer Arbeitsmappe auf einem anderen Laufwerk als Bild in ThisWorkbook zu kopieren.

Erste Angriffsplan:

Dim BBPic As Workbook 
Dim test As Workbook 
Set BBPic = Application.Workbooks.Open("\\OtherDrive\Shared\OtherGroup\DailySheet.xlsx") 
Set test = ThisWorkbook 

BBPic.Sheets("Sheet1").Range("B2:E16").Copy 
test.Sheets("Summary").Range("B64").Pictures.Paste 

Fehler, die sich ergibt: Object doesn't support this property or method auf test.Sheets("Summary").Range("B64").Pictures.Paste

So brach ich es unten mehr, bezogen auf this post aber ich nicht ganz verstehen, was sie erreichen.

Zweiter Versuch:

Dim BBPic As Workbook 
Dim test As Workbook 
Set BBPic = Application.Workbooks.Open("\\OtherDrive\Shared\OtherGroup\DailySheet.xlsx") 
Set test = ThisWorkbook 


BBPic.Sheets("Sheet1").Range("B2:E16").Copy 
test.Sheets("Summary").Select 
ActiveSheet.Range("B64").Select 
ActiveSheet.Pictures.Paste 

Fehler, die sich ergibt: Select Method of Worksheet class failed auf test.Sheets("Summary").Select

Dann habe ich auf this post aber es schien, als ob ich das gleiche tat, aber nur eine andere Art und Weise. Jetzt weiß ich nicht, was ich tun soll. Irgendeine Hilfe?

Answer 1

Dies funktioniert:

Dim BBPic As Workbook 
Dim test As Workbook 
Set BBPic = Application.Workbooks.Open("\\OtherDrive\Shared\OtherGroup\DailySheet.xlsx") 
Set test = ThisWorkbook 

BBPic.Sheets("Sheet1").Range("B2:E16").CopyPicture 
test.Sheets("Summary").Range("B64").PasteSpecial