View Single Post
 
Old 04-24-2018, 07:44 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2016
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,912
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

Code:
Sub chexSA()

Dim osubshp As Shape
Dim oshp As Shape
On Error GoTo err
Set oshp = ActiveWindow.Selection.ShapeRange(1)
If Not oshp.HasSmartArt Then
MsgBox "This does not look like you have a Smart Art shape selected!", vbCritical
Exit Sub
End If
For Each osubshp In ActiveWindow.Selection.ChildShapeRange
osubshp.Fill.ForeColor.RGB = vbRed
Next
Exit Sub
err:
MsgBox "Is a shape selected?", vbCritical
End Sub
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote