Microsoft Office Forums - View Single Post - [Solved] Alter Thickness of All Circles in Document

gmaxey · 03-20-2019, 01:54 PM

Try this:

Code:

Sub ResetShapeLineWT2()
Dim oShp As Shape
Dim lngIndex As Long
  For Each oShp In ActiveDocument.Shapes
    Select Case oShp.Type
      Case 1
        If oShp.AutoShapeType = msoShapeOval Then
          oShp.Line.Weight = 4.5
        End If
      Case 20
        For lngIndex = 1 To oShp.CanvasItems.Count
          If oShp.CanvasItems(lngIndex).Type = 1 Then
            If oShp.CanvasItems(lngIndex).AutoShapeType = msoShapeOval Then
              oShp.CanvasItems(lngIndex).Line.Weight = 4.5
            End If
          End If
        Next
    End Select
  Next oShp
End Sub