共用方式為


Excel) (Shapes.AddLabel 方法

建立標籤。 傳回 Shape 物件,該物件代表新的標籤。

語法

運算式AddLabel (OrientationLeftTopWidthHeight)

expression 代表 Shapes 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Orientation 必要 MsoTextOrientation 標籤內的文字方向。
Left 必要 Single 位置 (以標籤左上角相對於檔左上角的 ) 點 為單位。
Top 必要 Single 位置 (以標籤左上角相對於檔頂端的) 點為單位。
Width 必要 Single 標籤的寬度 (以點為單位)
Height 必要 Single 標籤的高度 (以點為單位)

傳回值

圖形

範例

本範例會將包含文字測試卷標的垂直標籤新增至 myDocument

Set myDocument = Worksheets(1) 
myDocument.Shapes.AddLabel(msoTextOrientationVertical, _ 
    100, 100, 60, 150) _ 
    .TextFrame.Characters.Text = "Test Label"

支援和意見反應

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