Macro to change cell sizes - widths & heights

[IainD]

Each day our accounts department export a report into Excel.

The width of the report means that if it was printed, the far right of the report would print on an additional page.

I am trying to create a macro that will format the cell widths & heights, wrapping the text, so that the width of the report will print on a single page.

My questions are:

1) Is it possible to create a macro to change the cell widths & heights to specific sizes, wrapping the text?

2) If it is possible, can someone let me have some example code to change two different cells widths & heights, with the text forced to wrap?

Any help or advice would be very much appreciated.

Kind regards,

Iain.

 

[VoG]

Try like this

Sub wid()
With Range("A1").EntireColumn
    .ColumnWidth = 10
    .WrapText = True
End With
With Range("C1").EntireColumn
    .ColumnWidth = 12
    .WrapText = True
End With
End Sub

 

[IainD]

Thanks for the reply, that's a massive help.

One follow up question.

Is it possible to change the page setup to landscape using a macro?

Kind regards,

Iain.

 

[VoG]

Try

ActiveSheet.PageSetup.Orientation = xlLandscape

 

[IainD]

Thanks that's brilliant.

Is there a resource that has all these types of commands listed?

Very good of you to take the time to help, much appriciated.

Kind regards,

Iain.

 

[VoG]

You can get the syntax for most things by recording a macro whilst performing the action manually.

 

[IainD]

Thanks for all your help. I do appricate you taking time out to share your knowlage with a stranger.

Cheers,

Iain.