Метод Shape.SetShapesDefaultProperties (Word)

Статья
04/07/2023

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

Синтаксис

expression. SetShapesDefaultProperties

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

Замечания

Новые фигуры наследуют многие из своих атрибутов от фигуры по умолчанию.

Пример

В этом примере к myDocument добавляется прямоугольник , форматирует заливку прямоугольника, применяет форматирование прямоугольника к фигуре по умолчанию, а затем добавляет в документ еще один (меньший) прямоугольник. Второй прямоугольник имеет ту же заливку, что и первый.

Set mydocument = ActiveDocument 
With mydocument.Shapes 
 With .AddShape(msoShapeRectangle, 5, 5, 80, 60) 
 With .Fill 
 .ForeColor.RGB = RGB(0, 0, 255) 
 .BackColor.RGB = RGB(0, 204, 255) 
 .Patterned msoPatternHorizontalBrick 
 End With 
 ' Sets formatting for default shapes 
 .SetShapesDefaultProperties 
 End With 
 ' New shape has default formatting 
 .AddShape msoShapeRectangle, 90, 90, 40, 30 
End With

См. также

Объект Shape

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через