Thanks Mr. Fu
I checked the help file and I am stuck with this line of codes.
Function StackedFractionSetting(ByVal otextElement As TextElement)
Dim oDimensionStyle As DimensionStyle
Dim oDim As DimensionElement
Dim StackFraction As MsdDimStackedFractionAlignment
Dim ee As ?Set ee = ActiveModelReference.GraphicalElementCache.Scan
Set oDim = ee.?
Set oDimensionStyle = oDim.DimensionStyle
oDimensionStyle.StackedFractionAlignment = MsdDimStackedFractionAlignmentCenter
End Function
I wanted to store value in the oDimensionStyle. and apply this
oDimensionStyle.StackedFractionAlignment = MsdDimStackedFractionAlignmentCenter to the text element in the main Sub.
please help? Thanks.