API Documentation > CorelDRAW > 2025-v26 > Dimension > IVGDimension
Dimension.TextShape property
Returns a text shape representing the dimension label
Syntax:
Property Get TextShape() As Shape
Remarks:
The TextShape property returns a read-only reference to a Shape object contained in a dimension label.
Examples:
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