Set oGeneralDimensions = oSheet.DrawingDimensions.GeneralDimensions.Item(1)
Sub ChangeStyle()
Dim oIDWDoc As DrawingDocument
Set oIDWDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Dim oDim As DrawingDimension
Dim oDimStyle As DrawingStandardStyle
Dim oGeneralDimensions As GeneralDimension
Set oDimStyle = oIDWDoc.StylesManager.ActiveStandardStyle
For Each oSheet In oIDWDoc.Sheets
For Each oDim In oSheet.DrawingDimensions
Debug.Print "Style Name and Val: " & oDim.Style.Name & " " & oDim.ModelValue
If oDim.Style.Name <> "HC - AS Metric" Then
oDim.Style = oDimStyle.Style 'This is where i am falling over... Help???
End If
Next
Next
End Sub
Hi Brian!
i try your rule but i have this error message?
and this the rule i use
Dim oIDWDoc As DrawingDocument
oIDWDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Dim oDim As DrawingDimension
Dim oDimStyle As DrawingStandardStyle
Dim oGeneralDimensions As GeneralDimension
oDimStyle = oIDWDoc.StylesManager.ActiveStandardStyle
For Each oSheet In oIDWDoc.Sheets
For Each oDim In oSheet.DrawingDimensions
Debug.Print ("Style Name and Val: " & oDim.style.Name & " " & oDim.ModelValue)
If oDim.style.Name <> "STD IMPERIAL (GD PRO)" Then
iProperties.Value("Custom", "test") = oDim.style.Name
oDim.Style = oDimStyle.ActiveObjectDefaults.LinearDimensionStyle
End If
Next
Next
Do you can help me?