04-22-2021
10:41 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-22-2021
10:41 AM
Johnson Shiue
I found the code below but the values come up as 0.
Dim oLength As Decimal
Dim oHeight As Decimal
Dim oWidth As Decimal
oLength = Round(Measure.ExtentsLength,2)
oHeight = Round(Measure.ExtentsHeight,2)
oWidth = Round(Measure.ExtentsWidth,2)
Dim SLength As String = oLength.ToString()
Dim SHeight As String = oHeight.ToString()
Dim SWidth As String = oWidth.ToString()
iProperties.Value("Custom", "Length") = SLength
iProperties.Value("Custom", "Height") = SHeight
iProperties.Value("Custom", "Width") = SWidth
I found the code below but the values come up as 0.
Dim oLength As Decimal
Dim oHeight As Decimal
Dim oWidth As Decimal
oLength = Round(Measure.ExtentsLength,2)
oHeight = Round(Measure.ExtentsHeight,2)
oWidth = Round(Measure.ExtentsWidth,2)
Dim SLength As String = oLength.ToString()
Dim SHeight As String = oHeight.ToString()
Dim SWidth As String = oWidth.ToString()
iProperties.Value("Custom", "Length") = SLength
iProperties.Value("Custom", "Height") = SHeight
iProperties.Value("Custom", "Width") = SWidth