Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Footer word wrap
I have the following that works through a vb.net add-in
Private Sub btnAutoFooter_Click(ByVal Ctrl As Office.CommandBarButton, ByRef CancelDefault As Boolean) Handles btnAutoFooter.Click Dim wb As Excel.Workbook = Me.ExApp.ActiveWorkbook Dim ws As Excel.Worksheet For Each ws In wb.Worksheets With ws.PageSetup .RightFooter = "&8&""Arial,Regular""" & "&D Page &P of &N" .LeftFooter = "&8&""Arial,Regular""" & wb.FullName & vbCrLf & "Sheet:" & "&A" .CenterFooter = "" End With Next End Sub I am trying to get the the line for the left footer to wrap. The vbcrlf and vbnewline cause 2 returns not one. Is there some way to get only one? Otherwise my sometime long filenames run all the way over into the right footer. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Footer word wrap
vblf
"Nathan Carroll" wrote in message ... I have the following that works through a vb.net add-in Private Sub btnAutoFooter_Click(ByVal Ctrl As Office.CommandBarButton, ByRef CancelDefault As Boolean) Handles btnAutoFooter.Click Dim wb As Excel.Workbook = Me.ExApp.ActiveWorkbook Dim ws As Excel.Worksheet For Each ws In wb.Worksheets With ws.PageSetup .RightFooter = "&8&""Arial,Regular""" & "&D Page &P of &N" .LeftFooter = "&8&""Arial,Regular""" & wb.FullName & vbCrLf & "Sheet:" & "&A" .CenterFooter = "" End With Next End Sub I am trying to get the the line for the left footer to wrap. The vbcrlf and vbnewline cause 2 returns not one. Is there some way to get only one? Otherwise my sometime long filenames run all the way over into the right footer. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Word Wrap Help! | Excel Discussion (Misc queries) | |||
Excel footer to look like Word footer? | Excel Discussion (Misc queries) | |||
Copy from Word to Excel, and retain indent, plus word wrap | Excel Discussion (Misc queries) | |||
word wrap | Excel Discussion (Misc queries) | |||
Word wrap | Excel Discussion (Misc queries) |