在标签之间复制图片

Question

将粘贴在单元格中的图像从一张纸复制到另一张纸

这是复制单元格的默认代码-我使用此方法是因为它仅复制可见的单元格，而忽略任何隐藏的行：

Sheets("Master").Range("C5:D120").SpecialCells(xlCellTypeVisible).Copy
With Sheets("ExportSheet").Range("B5")
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteAll
End With

此代码不会在单元格中复制任何已剪裁的图片...。因此，我添加了一个子程序来做到这一点：

Sub Copypics()
Dim pic As Shape, rng As Range
For Each pic In MasterAudit.Shapes
       If pic.Type = msoPicture Then
       pic.Copy
      With Sheets("Post_Diagnostic_Report")
            .Select
            .Range(pic.TopLeftCell.Address).Select
            .Paste
        End With
    Selection.Placement = xlMoveAndSize
    End If
Next pic
End Sub

此人将图片复制到新的工作表中，但是由于我在初次复制时更改了相对行，因此图片在错误的列中并且由于未复制隐藏的单元格...所以图片是在错误的行中也是如此。

我乐于接受建议...要么在初始代码块中添加一些内容以一次复制带有单元格的图片，但仍仅复制可见行...。 TopLeftCell.Address）。选择将图片与从其复制数据的行对齐的行。