閱讀英文

共用方式為


Word) (Shapes.AddLabel 方法

將文字標籤新增至繪圖畫布中。

語法

運算式AddLabel (OrientationLeftTopWidthHeight)

需要 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

另請參閱

Shapes 集合物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應