Object Model Reference : Classes : D : Dimension : Properties : Dimension.TextShape
|
|
| Object Model Reference : Classes : D : Dimension : Properties : Dimension.TextShape |
Property TextShape As Shape
Member of Dimension
The TextShape property returns a read-only reference to a Shape object contained in a dimension label.
The following VBA example creates a rectangle and a linear dimension that is linked to the rectangle’s snap points. The type of the shape for the dimension text is displayed.
Sub Test() |
Dim shp1 As Shape, shp2 As Shape |
Set shp1 = ActiveLayer.CreateRectangle2(0, 0, 5, 2.5) |
Set shp2 = ActiveLayer.CreateLinearDimension(cdrDimensionHorizontal, _ |
shp1.SnapPoints(1), shp1.SnapPoints(3)) |
MsgBox shp2.Dimension.TextShape.Type |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.