Sub FLASH_TR1()
Dim oSlide As Slide
Dim oShape As Shape
Dim A as Variant
Dim dis_vName As String
Dim vName As String
Set oSlide = Application.ActivePresentation.Slides(1)

vName = "TR1"
vColor = oSlide.Shapes.Item(vName).Line.Visible
A = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)

If vColor = 0 Then
' Включаем подсветку для текущего объекта
With oSlide.Shapes.Item(vName)
    .Line.Visible = msoTrue
    .Line.Weight = 5
    .Line.ForeColor.RGB = RGB(255, 255, 50)
End With

' Отключаем подсветку для других объектов
For i = 0 To 11
dis_vName = "TR" & A(i)
If dis_vName <> vName Then
With oSlide.Shapes.Item(dis_vName)
    .Line.Visible = msoFalse
End With
End If
Next

Else
' Отключаем подсветку для текущего объекта
With oSlide.Shapes.Item(vName)
    .Line.Visible = msoFalse
End With
End If

End Sub