Imports Microsoft.Office.Interop
Imports System.IO
 
Public Class Form1
 
    'Globale für Excel
    Public Const xlFilename As String = "Testmappe.xlsx"
    Public xlPath As String = Path.GetDirectoryName(Application.ExecutablePath)
 
    Public xlApp As New Excel.Application
    Public xlWB As Excel.Workbook
 
    ' tatsächlicher Arbeitsbereich
    Public nWorkingWidth As Integer
    Public nWorkingHeight As Integer
 
    Public iMeWidth As Double
    Public iMeHeight As Double
    Public iXlWidth As Double
    Public iXlHeight As Double
    Public Const iPercentExcel As Integer = 80
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        xlApp.Quit()
    End Sub
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        'Arbeitsbereich in Pixel Global legen
        With Screen.PrimaryScreen.WorkingArea
            nWorkingWidth = .Width
            nWorkingHeight = .Height
        End With
 
        'Eigene Fenstergröße errechnen (Pixel)
        iMeWidth = nWorkingWidth - (nWorkingWidth * (iPercentExcel / 100))
        iMeHeight = nWorkingHeight
 
        'Fenstergröße von Excel errechnen (Pixel)
        iXlWidth = nWorkingWidth - iMeWidth
        iXlHeight = nWorkingHeight
 
        'eigene Werte setzen
        Me.Height = iMeHeight
        Me.Width = iMeWidth
        Me.Left = 0
        Me.Top = 0
 
        'Excel mit bestimmter Arbeitsmappe laden, Visible machen und position 
        ' Anhand Prozentangabe setzen
        xlApp.Workbooks.Open(xlPath & "\" & xlFilename)
        xlApp.Visible = True
 
        xlApp.Width = iXlWidth * 0.75
        xlApp.Height = iXlHeight * 0.75
        xlApp.Top = 1
        xlApp.Left = (iMeWidth + 1) * 0.75
 
    End Sub
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Resize
        xlApp.Left = (Me.Width + 1) * 0.75
        xlApp.Width = (nWorkingWidth - Me.Width) * 0.75
    End Sub
End Class