Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
marcin_otręba
in reply to: A.Acheson

hi,

 

 

i use:

 

            For i = 1 To odraw.StylesManager.DimensionStyles.Count
                If odraw.StylesManager.DimensionStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.DimensionStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.StandardStyles.Count
                If odraw.StylesManager.StandardStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.StandardStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.BalloonStyles.Count
                If odraw.StylesManager.BalloonStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.BalloonStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.CentermarkStyles.Count
                If odraw.StylesManager.CentermarkStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.CentermarkStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.FeatureControlFrameStyles.Count
                If odraw.StylesManager.FeatureControlFrameStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.FeatureControlFrameStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.HoleTableStyles.Count
                If odraw.StylesManager.HoleTableStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.HoleTableStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.LeaderStyles.Count
                If odraw.StylesManager.LeaderStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.LeaderStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.ObjectDefaultsStyles.Count
                If odraw.StylesManager.ObjectDefaultsStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.ObjectDefaultsStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.PartsListStyles.Count
                If odraw.StylesManager.PartsListStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.PartsListStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.RevisionTableStyles.Count
                If odraw.StylesManager.RevisionTableStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.RevisionTableStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.StandardStyles.Count
                If odraw.StylesManager.StandardStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.StandardStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.TableStyles.Count
                If odraw.StylesManager.TableStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.TableStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.TextStyles.Count
                If odraw.StylesManager.TextStyles.Item(i).UpToDate = False Then
                    odraw.StylesManager.TextStyles.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.Layers.Count
                If odraw.StylesManager.Layers.Item(i).UpToDate = False Then
                    odraw.StylesManager.Layers.Item(i).UpdateFromGlobal()
                End If
            Next
            For i = 1 To odraw.StylesManager.Styles.Count
                If odraw.StylesManager.Styles.Item(i).UpToDate = False Then
                    odraw.StylesManager.Styles.Item(i).UpdateFromGlobal()
                End If
            Next
            Dim oStyles As DrawingStylesManager = odraw.StylesManager
            Dim noneleft As Boolean = True
            Dim ostyle As Style
            Do While (noneleft)
                noneleft = False
                For Each ostyle In oStyles.Styles
                    If ostyle.StyleLocation = 51202 And ostyle.InUse = False Then
                        ' uncomment next line to see styles being deleted
                        '			MsgBox(ostyle.Name)
                        ostyle.Delete()
                        noneleft = True
                    End If
                Next
            Loop