复制范围内排除一个范围

我有一个问题; 我想复制范围之间的A1：P40，但我想ex7ce：F40。 那可能吗？

Range("A1:P40").CopyPicture 

有没有办法从整体上排除A7：F40？

Answer 1

您可以分别复制两个范围，并将图片放置在另一张纸上您想要的位置。

看到这个代码，所有的testing。

 Sub CopyPics() Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = ThisWorkbook.Sheets("Sheet1") Set ws2 = ThisWorkbook.Sheets("Sheet2") ws1.Range("A1:P6").CopyPicture ws2.Range("A1").PasteSpecial ws1.Range("G7:P40").CopyPicture ws2.Range("G7").PasteSpecial End Sub 

如果你想粘贴链接的图片，你可以这样做：

 ws1.Range("A1:P6").Copy ws2.Pictures.Paste(Link:=True).Select With Selection .Top = 0 .Left = ws2.Range("A1").Left End With ws1.Range("G7:P40").Copy ws2.Pictures.Paste(Link:=True).Select With Selection .Top = ws2.Range("G2:G7").Height .Left = ws2.Range("G7").Left End With 

Answer 2

你可以通过Unionjoin多个范围，但.copyPicture不能用于非矩形或方形的东西。