Word) (Shapes.AddLabel 方法
將文字標籤新增至繪圖畫布中。
運算式。AddLabel (Orientation、 Left、 Top、 Width、 Height)
需要 expression。 代表 Shapes 物件的 變數。
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
Orientation | 必要 | MsoTextOrientation | 文字方向 |
Left | 必要 | Single | 相對於繪圖畫布左邊界之標籤左邊界的位置 (以點為單位) |
Top | 必要 | Single | 相對於繪圖畫布上邊界之標籤上邊界的位置 (以點為單位) |
Width | 必要 | Single | 標籤的寬度 (以點為單位) |
Height | 必要 | Single | 標籤的高度 (以點為單位) |
Shapes
本範例會將含有文字 "Hello World" 的藍色文字標籤新增至使用中文件的新繪圖畫布。
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
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
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
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。