API Documentation > CorelDRAW > 2025-v26 > Dimension > IVGDimension
Dimension.Type property
Returns the current dimension type
Syntax:
Property Get Type() As cdrDimensionType
Remarks:
The Type property returns the current dimension type.
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 dimension 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 "Dimension type is: " & shp2.Dimension.Type 
End Sub