Changing Excell Height and Width

[rsamanthif]

Hiiiii,
I am opening an Excell file using Excell object Library.

Dim xlTmp As Excel.Application
Dim sparth As String
Dim formwidth As Double

Set xlTmp = New Excel.Application
xlTmp.Workbooks.Open File1.Path & "\" & sparth,
xlTmp.Left = 20000
Set xlTmp.Width = 774
xlTmp.Height = 561 'Screen.Height - 5000
xlTmp.Width = 553
xlTmp.Visible = True

But when I am trying to set the Height and the Width of the Excel file it give the following error...

Runtime Error
"Method Height of object Application failed"

I need to change the Height and width of the opend excell file at run time......

Can anyone help me on this....


Thanks
Sam

[Bruce Fox]

At a guess, I cant test this theory out at the moment; however, I think
you may need to include a worksheet object, and Set that to the existing xlTmp.

What you are trying to do is adjust the application width/height, and you need to be adjusting the Worksheet width/height.




Bruce.

[rsamanthif]

Hiii,
I tired it But there's no property to set the worksheet Height and width......


Sam

[RobDog888]

In order to change any height/width props of the main window, it
needs to be in a windowstate of Normal, not maximized or
minimized. This will work.

Option Explicit
 
Private Sub Command1_Click()
 
    Dim xlTmp As Excel.Application
    Dim sparth As String
    Dim formwidth As Double
    
    Set xlTmp = New Excel.Application
    xlTmp.Workbooks.Open "D:\My Documents\Book1.xls"
    [b][color=red]xlTmp.WindowState = xlNormal[/color][/b]
    xlTmp.Left = 20000
    xlTmp.Width = 774
    xlTmp.Height = 561 'Screen.Height - 5000
    xlTmp.Width = 553
    xlTmp.Visible = True
 
End Sub