Метод ShapeRange.SetShapesDefaultProperties (Издатель)
Применяет форматирование указанной фигуры или диапазона фигур к фигуре по умолчанию. Для фигур, созданных после использования этого метода, это форматирование применяется к ним по умолчанию.
Синтаксис
expression. SetShapesDefaultProperties
Выражение Переменная, представляющая объект ShapeRange .
Возвращаемое значение
Отсутствует
Примечания
Метод 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 и обратная связь.