Как вставить заголовок с изображением и именем файла при создании новой книги?

Question

Я пытаюсь вставить заголовок с изображением и некоторыми текстами, копируя значения из 2 разных ячеек. Я попробовал поискать в Google, но каким-то образом мне удалось получить изображение, которое появляется только в режиме печати, но не в рабочей книге. Ниже приведен код, который я пробовал.

Dim ws As Worksheet
Set ws = Worksheets("Output")

With ws.PageSetup
   .CenterFooterPicture = "&G" 'Specifies that you want an image in your footer
   .CenterFooterPicture.Filename = "C:\Users\Public\Pictures\Sample Pictures\Desert.jpg"

End With

Пока создается новая рабочая книга, заголовок с рисунком и текстом также должен быть внутри

Answer 1

Примечания к документации CenterFooterPicture:

Требуется, чтобы символ "& G" был частью строки свойства CenterFooter в следующем порядке:чтобы изображение отображалось в нижнем колонтитуле.

Аналогично примеру, приведенному в документации, попробуйте:

Dim ws As Worksheet
Set ws = Worksheets("Output")

With ws.PageSetup
   .CenterFooterPicture.Filename = "C:\Users\Public\Pictures\Sample Pictures\Desert.jpg"
End With

ws.PageSetup.CenterFooter = "&G" 'Specifies that you want an image in your footer

РЕДАКТИРОВАТЬ:

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

Dim ws As Worksheet
Set ws = Worksheets("Output")

With ws.PageSetup
   .LeftHeaderPicture.Filename = "C:\Users\Public\Pictures\Sample Pictures\Desert.jpg"
End With

ws.PageSetup.LeftHeader = "&G"