公告
本專欄的相關(guān)的文章已不在簡書同步更新窄赋，請直接訪問 VBA探秘 官方網(wǎng)站或關(guān)注微信公眾號獲取最新文章動態(tài)。
每個Shape對象都具有只讀Type屬性津坑，該屬性返回形狀類型（例如黄选，矩形知纷、橢圓浩考、曲線夹孔、文本或組）。對于形狀可用的屬性和方法隨形狀類型而變化析孽；因此搭伤，在對該形狀應(yīng)用任何屬性或方法之前確定形狀類型是一個好主意。
下面的示例VBA代碼確定形狀是否為文本袜瞬。如果形狀是文本怜俐，則代碼確定它是藝術(shù)文本還是段落文本。如果形狀是藝術(shù)文本吞滞，則旋轉(zhuǎn)10度佑菩。
' 取得當(dāng)前活動形狀
Dim sh As Shape
Set sh = ActiveShape
' 如果形狀類型是文本形狀類型
If sh.Type = cdrTextShape Then
' 如果是美術(shù)字文本
If sh.Text.IsArtisticText = True Then
' 將其旋轉(zhuǎn)10度
sh.Rotate 10
End If
End If
原創(chuàng)聲明：本文首發(fā)于個人CorelDRAW VBA博客，請尊重文章版權(quán)裁赠。
轉(zhuǎn)載請注明原文鏈接：http://www.cdrvba.com/coreldraw-vba-determining-shape-type
