Метод Shape.SetShapesDefaultProperties (Publisher)

Применяет форматирование указанной фигуры или диапазона фигур к фигуре по умолчанию. К фигурам, созданным после использования этого метода, будет применено это форматирование по умолчанию.

Синтаксис

expression. SetShapesDefaultProperties

Выражение Переменная, представляющая объект Shape .

Замечания

Метод SetShapesDefaultProperties хранит два разных набора свойств по умолчанию: один для свойства AutoShapeType объекта Shape, а другой для объекта 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 и обратная связь.