公告

本专栏的相关的文章已不在简书同步更新，请直接访问 VBA探秘 官方网站或关注微信公众号获取最新文章动态。

每个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

原创声明：本文首发于个人CorelDRAW VBA博客，请尊重文章版权。
转载请注明原文链接：http://www.cdrvba.com/coreldraw-vba-determining-shape-type