Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Указывает, что заливка фигуры должна соответствовать фону слайда. Если изменить фон слайда после применения этого метода к заливку, заливка также изменится.
Синтаксис
expression. Фон
выражение Переменная, представляющая объект FillFormat .
Замечания
Обратите внимание, что применение метода Background к заливку фигуры не то же самое, что установка прозрачной заливки для фигуры, и не всегда совпадает с применением той же заливки к фигуре, что и к фону. Это демонстрируется во втором примере.
Пример
В этом примере задается заливка фигуры на слайде 1 в активной презентации в соответствии с фоном слайда.
ActivePresentation.Slides(1).Shapes(1).Fill.Background
В этом примере задается фон для слайда в активной презентации с предустановленным градиентом, к слайду добавляется прямоугольник, а затем перед прямоугольником помещает три овала. Первый овал имеет заливку, соответствующую фону слайда, второй — прозрачную, а третий — ту же заливку, что и к фону. Обратите внимание на разницу во внешнем виде этих трех овалов.
With ActivePresentation.Slides(1)
.FollowMasterBackground = False
.Background.Fill.PresetGradient _
msoGradientHorizontal, 1, msoGradientDaybreak
With .Shapes
.AddShape msoShapeRectangle, 50, 200, 600, 100
.AddShape(msoShapeOval, 75, 150, 150, 100) _
.Fill.Background
.AddShape(msoShapeOval, 275, 150, 150, 100).Fill _
.Transparency = 1
.AddShape(msoShapeOval, 475, 150, 150, 100) _
.Fill.PresetGradient _
msoGradientHorizontal, 1, msoGradientDaybreak
End With
End With
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.