Excel VBA Header/Footer - добавление «Enter»

Question

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

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

Есть ли способ получить значение «ввести» в верхний/нижний колонтитул? Мой код ниже, я хотел бы иметь значения B6 и B7 на отдельных строках.

Sub VenueAndCompany() 
'Puts in the venue and company name 
Dim ws As Worksheet 
For Each ws In ActiveWorkbook.Worksheets 
    ws.PageSetup.CenterFooter = "&""Futura-Normal,Bold""&14" & ActiveSheet.Range("B6") & ", " & "&""Futura-Normal,Bold""&14" & ActiveSheet.Range("B7").Value 
    Next ws 

End Sub

Answer 1

вы можете использовать chr(10) вставить разрыв строки

ws.PageSetup.CenterFooter = "&""Futura-Normal,Bold""&14" & ActiveSheet.Range("B6") & ", " & "&""Futura-Normal,Bold""&14" & chr(10) & ActiveSheet.Range("B7").Value