Метод ShapeRange.SetShapesDefaultProperties (Excel)

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

Синтаксис

expression. SetShapesDefaultProperties

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

Пример

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

Set myDocument = Worksheets(1) 
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 
 ' Set formatting as default formatting 
 .SetShapesDefaultProperties 
 End With 
 ' Create new shape with default formatting 
 .AddShape msoShapeRectangle, 90, 90, 40, 30 
End With

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

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