Public Sub setze_Propertie_Render()

    Dim oApp As Inventor.Application
    Dim oDoc As Document
    Dim oProp As Property
        
    Set oApp = ThisApplication
    Set oDoc = oApp.ActiveDocument
    
    Dim oRender As RenderStyle
    Set oRender = oDoc.ActiveRenderStyle
    
    oDoc.PropertySets.Item(4).Item(1).Delete
    Set oProp = oDoc.PropertySets.Item(4).Add(oRender.Name, "Renderstil", 2)

end sub