通过

CanvasShapes.AddLabel Method

  • 项目
Word Developer Reference

Adds a text label to a drawing canvas. Returns a Shapes object that represents the text label.

Syntax

expression.AddLabel(Orientation, Left, Top, Width, Height)

expression   Required. A variable that represents a CanvasShapes collection.

Parameters

Name Required/Optional Data Type Description
Orientation Required MsoText The orientation of the text.
Left Required Single The position, measured in points, of the left edge of the label relative to the left edge of the drawing canvas.
Top Required Single The position, measured in points, of the top edge of the label relative to the top edge of the drawing canvas.
Width Required Single The width of the label, in points.
Height Required Single The height of the label, in points.

Example

This example adds a blue text label with the text "Hello World" to a new drawing canvas in the active document.

Visual Basic for Applications 
  Sub NewCanvasTextLabel()
    Dim shpCanvas As Shape
    Dim shpLabel As Shape

'Add a drawing canvas to the active document
Set shpCanvas = ActiveDocument.Shapes.AddCanvas _
    (Left:=100, Top:=75, Width:=150, Height:=200)

'Add a label to the drawing canvas
Set</code>
Visual Basic for Applications 
  shpLabel = shpCanvas.CanvasItems.AddLabel _
        (Orientation:=msoTextOrientationHorizontal, _
        Left:=15, Top:=15, Width:=100, Height:=100)

'Fill the label textbox with a color,
'add text to the label and format it
With</code>
Visual Basic for Applications 
  shpLabel
        With .Fill
            .BackColor.RGB = RGB(Red:=0, Green:=0, Blue:=192)
            'Make the fill visible
            .Visible = msoTrue
        End With
        With .TextFrame.TextRange
            .Text = "Hello World."
            .Bold = True
            .Font.Name = "Tahoma"
        End With
    End With
End Sub

See Also