RE: Connect VBA GetTotalTextSize

Here's a simple test function:

Function TextTest()
Dim oText As TextElement
Dim dblTXWidth As Double, dblTXHeight As Double
Set oText = CreateTextElement1(Nothing, "This is a test", Point3dOne, Matrix3dIdentity)
oText.GetTotalTextSize dblTXWidth, dblTXHeight
Debug.Print "Width = " & dblTXWidth & ", Height = " & dblTXHeight
End Function

It doesn't matter what you enter for the text string. The value for both the text string width and height is reported as 33600.