Option Strict Off
Imports System
Imports NXOpen


Module Module1

  
    Sub Main()

  

        Dim objExcel = CreateObject("Excel.Application")
        Dim objWorkbook = objExcel.Workbooks.Add
        objExcel.visible = True


        objExcel.Cells(3, 5).Value = "Test"


        objExcel.Cells(3, 5).Select()
        With objExcel.Selection.Font
            .Name = "Arial"
            .FontStyle = "Standard"
            .Size = 30
            .ColorIndex = 10
        End With



        objExcel.Cells(3, 5).Select()
        With objExcel.Selection
            .Borders(7).LineStyle = 1           'xlEdgeLeft mit xlContinuous
            .Borders(8).LineStyle = 1           'xlEdgeTop  mit xlContinuous
            .Borders(9).LineStyle = 1           'xlEdgeBottom  mit xlContinuous
            .Borders(10).LineStyle = 1          'xlEdgeRight  mit xlContinuous
        End With


        With objExcel
            .Columns("C:C").WrapText = True
            .Columns("C:C").ColumnWidth = 28
            .Columns("C:C").Rows.AutoFit()

            .Columns("B:B").Columns.AutoFit()
            .Columns("A:A").ColumnWidth = 6.86
 
        End With








    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

        '----Other unload options-------
        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------

    End Function

End Module