Quote:
Originally Posted by JohnWilson
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
Set osubshp = ActiveWindow.Selection.ChildShapeRange(1)
osubshp.Fill.ForeColor.RGB = vbRed
Exit Sub
err:
MsgBox "Is a shape selected?", vbCritical
End Sub
|
Hi John,
Amazing, thanks a ton !!
Appreciate your timely and accurate response !