使用VBA将图像从一个页面的页眉/页脚复制到另一个页面

Question

我需要编写一个VBA代码，将一个Excel工作表的页眉/页脚中的公司徽标复制到另一个工作簿中的另一个工作表中。 有任何想法吗？

Answer 1

Excel具有方便的记录宏功能。

你可以启动它，复制页脚，然后停止录制。

然后，查看代码，它应该告诉你如何做到这一点。

Answer 2

如果您使用的是比Excel 2007更早的版本，那么如果不使用原始图形文件（例如JPG，GIF等），则听起来不可能：

通常，您可以通过选择工作表然后使用页眉或页脚对话框（单击页面设置对话框的页眉/页脚选项卡上的自定义页眉或自定义页脚）将页眉和页脚从一个工作表复制并粘贴到另一个工作表。 但是，如果原始页眉和页脚包含图形，则图形将不会传播到其他工作表。 在多个工作表的页眉或页脚中处理图片的唯一方法是选择所有工作表，然后使用“插入图片”对话框插入图形（单击“插入图片”按钮），或使用“格式图片”格式化图形对话框（单击“格式图片”按钮）。 此过程需要原始图形文件。

资源

它可能在Excel 2007中 - 请参阅此处

Answer 3

一种解决方法是将原始工作表复制到新工作簿：

   ' macro on the source workbook
    Sheets("Sheet1").Move After:=Workbooks("Book2").Sheets(3)

执行此操作时，您在目标工作簿中获得一个工作表，其中包含原始的所有功能，包括页脚和标题，然后您可以将所需的所有内容复制到新工作表中