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

Question

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

Answer 1

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

您可以启动，将页脚复制，然后停止录制。

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

Answer 2

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

  

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

     

source

可能在Excel 2007中 - 请参阅here

Answer 3

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

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

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