Steema Central

Support Staff,

The following code snippet creates an annotation. It would be of great help to me if I could figure out how to rotate the annotation 90 degrees. I've tried everything I can think of. Do you have any thoughts or suggestions?

Thanks, Dean Darsey

Private Sub Form_Load()
Dim AnnoNum As Integer

With TChart1
AnnoNum = .Tools.Add(tcAnnotate)
With .Tools.Items(AnnoNum).asAnnotation
.Shape.Frame.Visible = False
.Shape.Font.Name = "Ariel"
.Shape.Font.Color = vbBlack
.Shape.Font.Size = 8
.Shape.CustomPosition = True
.Shape.Left = TChart1.Canvas.Left + 100
.Shape.Top = TChart1.Canvas.Top + 100
.Text = "This is a test."
End With
End With

End Sub

Hi DTech,

I'm afraid this cannot be done. I've included your request to our wish list to be considered for future releases.