Deselecting connectors in shape range in PowerPoint using VBA

[Paul_Hossler]

I don't think defining the 'First Shape' by 'lassoing' them is 100%, but play with this

The alternative which I think is more reliable is to click the 'master' shape, and then Shift-Click the others that you want to apply the master shape formats to

Option Explicit


Sub FormatAllShapes()
    Dim oShape As Shape, oFirstShape As Shape
    
    
    If NoPresentation Then Exit Sub


    ScreenUpdating = False
    
    For Each oShape In ActiveWindow.Selection.ShapeRange
    
        If oFirstShape Is Nothing Then
            Set oFirstShape = oShape
            oFirstShape.PickUp
        Else
            If oShape.Type = oFirstShape.Type Then
                oShape.Apply
            End If
        End If
    Next


    ScreenUpdating = True


End Sub