DrawText Method

  • Article

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Draws a text string on a chart.

expression.DrawText(bstrText, Left, Top)

expression   Required. An expression that returns a ChChartDraw object.

bstrText  Required String. The text to draw on the chart.

Left  Required Long. Pixel coordinate of the left edge of the text.

Top  Required Long. Pixel coordinate of the top edge of the text.

Example

This example adds a text string to the upper-left corner of the plot area each time that the chart is re-drawn.

  Sub ChartSpace1_AfterRender(drawObject, chartObject)

    Dim chChart1

    Set chChart1 = ChartSpace1.Charts(0)
	
    ' After the legend has been rendered, then add the text
    ' to the chart.
    If TypeName(chartObject) = "ChLegend" Then
        drawObject.DrawText "2000 Sales", chChart1.PlotArea.Left + 5, _
                            chChart1.PlotArea.Top
    End If

End Sub