Lowell开发了一个宏,用于将选定单元格的数据复制到另一个工作表上的特定位置。一些源单元格包含图片,他也希望复制这些图片。 Lowell想知道他如何才能使宏识别图片是否在源单元格中,然后将图片与数据一起复制到新的工作表中。

如果对选择对象使用复制方法,则可以将所有内容(包括图片)从源复制到目标。考虑以下简短宏:

Sub CopyPict()

Sheets("Sheet1").Select     Range("B3:F7").Select     Selection.Copy     Sheets("Sheet3").Select     Range("H8").Select     ActiveSheet.Paste End Sub

假设源范围(Sheet1上的B3:B7)内的某些单元格包含图片,则“粘贴”方法会将其粘贴到目标(Sheet3上的单元格H8)。实际上,此技术与手动复制和粘贴信息相同。

如果您以不同的方式标识和移动信息(也许使用中间变量而不是复制到剪贴板),则很可能没有图片被复制。

如果需要在将数据粘贴到目标之前进行一些处理,则可以使用如上所示的Paste方法,然后处理数据并将其放回到目标单元格中​​。这将使图片在目标处保持不受干扰。

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(11332)适用于Microsoft Excel 97、2000、2002和2003。您可以在以下位置找到用于Excel功能区界面(Excel 2007及更高版本)的本技巧的版本:

链接:/ excelribbon-Copying_Pictures_with_a_Macro [复制带有宏的图片]。