VBA to clear any shape border on all slides

Hello - i need a simple VBA to clear shape borders on all slides. the one i have below is not really working...i think the shapeborder.clear is not right.

any ideas the right fix should be? thank you!:hi:



Sub RemoveShapeBorder()


Dim sld As Slide
For Each sld In ActivePresentation.Slides
sld.ShapeBorder.Clear


Next
End Sub

Code:

---

Option Explicit


Sub ClearBorders()
    Dim oSlide As Slide
    Dim oShape As Shape, oShape2 As Shape
   
    For Each oSlide In ActivePresentation.Slides
        For Each oShape In oSlide.Shapes
            If oShape.Type = msoGroup Then
                oShape.Line.Weight = 0

                For Each oShape2 In oShape.GroupItems
                    oShape2.Line.Weight = 0
                Next
           
            Else
                oShape.Line.Weight = 0
            End If
        Next
    Next
End Sub

---

I would use

Code:

---

Sub ClearBorders()
    Dim oSlide As Slide
    Dim oShape As Shape, oShape2 As Shape
   
    For Each oSlide In ActivePresentation.Slides
        For Each oShape In oSlide.Shapes
            If oShape.Type = msoGroup Then
                oShape.Line.Visible = False


                For Each oShape2 In oShape.GroupItems
                    oShape2.Line.Visible = msoFalse
                Next
           
            Else
                oShape.Line.Visible = False
   
            End If
        Next
    Next
End Sub

---

Paul's code should work but can have unexpected results with placeholders

Thank you John.
I got a run time error - the specified value is out of range. any idea how to fix this??

thank you!

Quote:

---

Originally Posted by John Wilson

I would use

Code:

---

Sub ClearBorders()
    Dim oSlide As Slide
    Dim oShape As Shape, oShape2 As Shape
   
    For Each oSlide In ActivePresentation.Slides
        For Each oShape In oSlide.Shapes
            If oShape.Type = msoGroup Then
                oShape.Line.Visible = False


                For Each oShape2 In oShape.GroupItems
                    oShape2.Line.Visible = msoFalse
                Next
           
            Else
                oShape.Line.Visible = False
   
            End If
        Next
    Next
End Sub

---

Paul's code should work but can have unexpected results with placeholders

---

Quote:

---

Originally Posted by rwc1023

Thank you John.
I got a run time error - the specified value is out of range. any idea how to fix this??

thank you!

---

Most likely reason is you have a shape that cannot have the line set, maybe an ActiveX shape or a Table?

Try ignoring the error like this

Code:

---

Sub ClearBorders()   
Dim oSlide As Slide
    Dim oShape As Shape, oShape2 As Shape
    On Error Resume Next
    For Each oSlide In ActivePresentation.Slides
        For Each oShape In oSlide.Shapes
            If oShape.Type = msoGroup Then
                oShape.Line.Visible = False


                For Each oShape2 In oShape.GroupItems
                    oShape2.Line.Visible = msoFalse
                Next
            Else
                oShape.Line.Visible = False
            End If
        Next
    Next
End Sub

---

John --

1. I added On Error to handle Tables and such

2. Went with .Visible = msoFalse

3. Add recursion in case a Group contained other Groups

4. But .Visible = msoFalse seems to change Title placeholders to top left

Not sure why Paul (yet) but it doesn't happen if I recreate the title slide OR reapply the Title layout to the first slide.

More PP wierdness ??

The Before and After (including the PPTM After)

But didn't do it to Slide 2

Attachment 28590


Attachment 28591

Quote:

---

Originally Posted by Paul_Hossler

More PP wierdness ??

The Before and After (including the PPTM After)

But didn't do it to Slide 2


Attachment 28590


Attachment 28591

---

Very strange. Even looking through the XML I can see nothing strange about the slide that misbehaves.

Slide 3 Title does the same thing, but Slide 2 doesn't


I didn't see any common thread