Alter Thickness of All Circles in Document

gmaxey · #11 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do you alter font/size within Task folders	lsg267	Office	0	06-16-2017 07:45 AM
divided circles	ericvorlage	Excel	1	01-26-2014 11:07 AM
End or alter a loop?	DJSOUND	Word VBA	1	10-11-2013 08:11 PM
Alter right click menu?	markg2	Office	1	01-10-2011 08:10 AM
Circles	Toruk-Mach-Toh	Word	0	03-16-2010 05:33 AM