Publisher) (Selection 物件

代表視窗或窗格內的目前選取範圍。 選取項目代表選取 （或反白顯示）] 區域中的出版物，或者它表示游標如果已選取 [在出版物中為 nothing。 只能有一個出版物視窗窗格中，個別的 Selection 物件與整個應用程式中只有一個 Selection 物件會在使用中。

註解

使用 Document.Selection 屬性可傳回 Selection 物件。 若無物件辨識符號的 選取項目 屬性搭配使用，Microsoft Publisher 會從使用中出版物視窗的使用中窗格傳回選取範圍。

範例

下列範例會將目前的選取範圍複製使用中出版物。

Sub CopySelection() 
 Selection.ShapeRange.Copy 
End Sub

下列範例會決定選取的專案類型，如果是自動圖案，則會以色彩填滿選取範圍中的第一個圖案。 此範例假設使用中出版物中至少選取了一個專案。

Sub SelectedShape() 
 If Selection.Type = pbSelectionShape Then 
 Selection.ShapeRange.Item(1).Fill.ForeColor _ 
 .RGB = RGB(Red:=200, Green:=20, Blue:=255) 
 End If 
End Sub

下列範例會複製選取範圍，並將它貼上使用中出版物的第二頁上的第一個圖案。

Sub CopyPasteSelection() 
 Selection.TextRange.Copy 
 With ActiveDocument.Pages(2).Shapes(1).TextFrame.TextRange 
 .Collapse Direction:=pbCollapseEnd 
 .InsertAfter NewText:=vbLf 
 .Paste 
 End With 
End Sub

方法

• Unselect

屬性

• Application
• ChildShapeRange
• Parent
• ShapeRange
• TableCellRange
• TextRange
• Type

另請參閱

• Publisher 物件模型參考

支援和意見反應

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