Public Sub Transparenz_ein_aus()

'************************************
' Makro zum Ändern der Transparenz
' Schableger Thomas
' 07.10.2004
'************************************
' geändert 29.09.2005
' SHP
' auch in der BG geänderte Farben
' werden transparent geschaltet
'************************************

'Variablendeklaration
Dim oPartDoc As PartDocument
Dim oRenderStyle As RenderStyle
Dim oOccurrence As ComponentOccurrence
Dim doc As Document

'Prüfen ob Assambly oder Part
If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject And ThisApplication.ActiveDocumentType <> kPartDocumentObject Then
    MsgBox "Ungültiges Document", vbOKOnly
    Exit Sub
End If

'Transparent für Part
If ThisApplication.ActiveDocumentType = kPartDocumentObject Then
    Set oPartDoc = ThisApplication.ActiveDocument
    For Each oRenderStyle In oPartDoc.RenderStyles
        If oRenderStyle.InUse = True Then
            If oRenderStyle.Opacity = 1 Then
                oRenderStyle.Opacity = 0.5
            Else
                oRenderStyle.Opacity = 1
            End If
        End If
    Next
End If
   
'Transparent für Assambly
If ThisApplication.ActiveDocumentType = kAssemblyDocumentObject Then
    On Error Resume Next
    Set oOccurrence = ThisApplication.ActiveDocument.SelectSet.Item(1)
    If Err Then Exit Sub
        
        If oOccurrence.RenderStyle.InUse = False Then
            'bei Renderstil von Material
            Set doc = oOccurrence.Definition.Document
                For Each oRenderStyle In doc.RenderStyles
                    If oRenderStyle.InUse = True Then
                        If oRenderStyle.Opacity = 1 Then
                            oRenderStyle.Opacity = 0.5
                        Else
                            oRenderStyle.Opacity = 1
                        End If
                    End If
                Next
        Else
            'bei einem beliebigen Renderstil
            Set oRenderStyle = oOccurrence.RenderStyle
            
                If oRenderStyle.Opacity = 1 Then
                    oRenderStyle.Opacity = 0.5
                Else
                    oRenderStyle.Opacity = 1
                End If
        End If
End If
End Sub