Shape.SetShapesDefaultProperties 方法 (Publisher)

將指定圖案或圖案範圍的設定格式套用於預設圖案。 使用了本方法以後所建立的圖案將預設地套用這些格式。

語法

運算式。SetShapesDefaultProperties

表達 代表 Shape 物件的變數。

註解

SetShapesDefaultProperties方法會儲存兩組不同的預設屬性，一組用於Shape物件的AutoShapeType屬性，另一組用於TextFrame物件。

換句話說，如果在快取圖案上呼叫此方法，該物件的預設格式設定僅套用至新的快取圖案、 並不會套用到新的文字方塊。 如果在文字方塊呼叫這個方法，該物件的預設格式設定只會套用到新的文字方塊，而不會套用到新的快取圖案。

範例

本範例新增矩形到使用中出版物，設定該矩形的填滿格式，對預設圖案應用矩形的格式，然後又向文件新增了一個較小的矩形。 第二個矩形的填滿格式將與第一個矩形的一樣。

With ActiveDocument.Pages(1).Shapes 
 
 With .AddShape(Type:=msoShapeRectangle, _ 
 Left:=5, Top:=5, Width:=80, Height:=60) 
 With .Fill 
 .ForeColor.RGB = RGB(0, 0, 255) 
 .BackColor.RGB = RGB(0, 204, 255) 
 .Patterned Pattern:=msoPatternHorizontalBrick 
 End With 
 .SetShapesDefaultProperties 
 End With 
 
 .AddShape Type:=msoShapeRectangle, _ 
 Left:=90, Top:=90, Width:=40, Height:=30 
 
End With 

支援和意見反應

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