本示例在组合对象中判断选定的子形状是否为文本框,如果是则将该子形状的边框线条设为红色,否则设为蓝色。

With ActiveWindow.Selection.ChildShapeRange
    If .Type = ksoTextBox Then
        .Line.ForeColor.RGB = RGB(200, 15, 10)
    Else
        .Line.ForeColor.RGB = RGB(10, 15, 200)
    End If
End With