CDR插件开发入门 - 确定形状类型每个Shape对象都具有只读Type属性，该属性返回形状类型（例如，矩形、椭圆、曲线

每个Shape对象都具有只读Type属性，该属性返回形状类型（例如，矩形、椭圆、曲线、文本或组）。对于形状可用的属性和方法随形状类型而变化；因此，在对该形状应用任何属性或方法之前确定形状类型是一个好主意。

下面的示例VBA代码确定形状是否为文本。如果形状是文本，则代码确定它是艺术文本还是段落文本。如果形状是艺术文本，则旋转10度。

' 取得当前活动形状
Dim sh As Shape
Set sh = ActiveShape
' 如果形状类型是文本形状类型
If sh.Type = cdrTextShape Then
    ' 如果是美术字文本
    If sh.Text.IsArtisticText = True Then
        ' 将其旋转10度
        sh.Rotate 10
    End If
End If