Доброго всем дня!
Хочу отобразить текст под определенным углом. Использую код
-----------
Public Sub TextToMap1(pPoint As IPoint)
Dim pMxDoc As IMxDocument
Dim pGraphicsContainer As IGraphicsContainer
Dim pActiveView As IActiveView
Dim pTextElement As ITextElement
Dim pElement As IElement
Dim pTextSymbol As ISimpleTextSymbol
Set pMxDoc = Application.Document
Set pGraphicsContainer = pMxDoc.FocusMap
Set pActiveView = pMxDoc.FocusMap
Dim pColor As IRgbColor
Set pColor = New RgbColor
Dim pFont As IFontDisp
Set pFont = New stdole.StdFont
pFont.Name = "Arial"
pColor.RGB = 0
Set pTextSymbol = New TextSymbol
With pTextSymbol
.Font = pFont
.Color = pColor
.size = 12
