Используйте VBA, чтобы скопировать изображение из колонтитулов одного листа на другой

Question

Мне нужно написать код VBA, чтобы скопировать логотип компании в верхних и нижних колонтитулах одного листа Excel на другой лист в другой книге. Есть идеи?

Answer 1

Excel имеет удобную функцию записи макросов.

Вы можете инициировать это, скопировать нижний колонтитул и остановить запись.

Затем просмотрите код, и он должен показать, как это сделать.

Answer 2

Одним из способов решения этой проблемы является копирование оригинала листа в новую книгу:

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

Когда вы сделаете это, вы получите рабочий лист в конечной рабочей книге со всеми функциями оригинала, включая нижние и нижние колонтитулы, затем вы сможете скопировать весь необходимый контент в новый рабочий лист

Answer 3

Если вы работаете с чем-либо старше Excel 2007, то это не похоже на то, что это невозможно без использования исходного графического файла (например, JPG, GIF и т. Д.):

Обычно вы можете копировать и вставлять верхние и нижние колонтитулы из одного листа другому, выбрав рабочие листы а затем с помощью верхнего или нижнего колонтитула диалоговые окна (нажмите Пользовательский заголовок или Пользовательский нижний колонтитул на вкладке Верхний / нижний колонтитул диалогового окна Параметры страницы). Тем не менее, если оригинальные заголовки и нижние колонтитулы содержат графику, графику не будет распространяться на других рабочие листы. Единственный способ работать с картинки в верхних или нижних колонтитулах для несколько листов, чтобы выбрать все рабочие листы, а затем вставьте графический с помощью вставки изображения диалоговое окно (нажмите Вставить картинку ) или отформатируйте рисунок используя диалоговое окно «Формат изображения» (нажмите кнопку «Форматировать изображение»). оригинальный графический файл необходим для эта процедура.

источник

Это может быть возможно в Excel 2007 - см. здесь