Maximize Window

[josros60]

Hi,

how can i modify the code below in Outlook that when file opens in Excel is in maximize window.

Public Sub OpenVendorChartofAcounts() Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xExcelRange As Excel.Range
    xExcelFile = "\\mtlnas01\share\Accountant Files\AP Team\Jose\NCL_XLSM\CHART OF ACCOUNTS.xlsm"
    Set xExcelApp = CreateObject("Excel.Application")
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xWs.Activate
    Set xExcelRange = xWs.Range("A1")
    xExcelRange.Activate
    xExcelApp.Visible = True
    
End Sub

 

[ChrisFoster]

Try adding the below once the workbook is opened.

ActiveWindow.WindowState = xlMaximized

 

[josros60]

Thank you.

I did but still minimize.

just to note I am opening the file from Outlook 2016.

 

[Domenic]

Try...

xExcelApp.ActiveWindow.WindowState = xlMaximized

Or, alternatively

xWb.Windows(1).WindowState = xlMaximized

Hope this helps!

 

[josros60]

Thank you so much, worked like charm.

[COLOR=#333333]xWb.Windows(1).WindowState = xlMaximized[/COLOR]

 

[Domenic]

You're very welcome!

Cheers!