Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Создает автофигуру. Возвращает объект Shape , представляющий новый автофигуру.
Синтаксис
выражение.
AddShape( _Type_, _Left_, _Top_, _Width_, _Height_ )
выражение: переменная, представляющая объект Shapes.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Тип | Обязательный | MsoAutoShapeType | Указывает тип создаваемого автофигуры. |
| Left | Обязательный | Single | Позиция левого края автофигуры по отношению к левому краю слайда, измеряемая в точках. |
| Top | Обязательный | Single | Позиция верхнего края автофигуры по отношению к верхнему краю слайда, измеряемая в точках. |
| Width | Обязательный | Single | Ширина автофигуры, измеряемая в точках. |
| Height | Обязательный | Single | Высота автофигуры, измеряемая в точках. |
Возвращаемое значение
Shape
Примечания
Чтобы изменить тип добавленного объекта AutoShape, задайте свойство AutoShapeType .
Пример
В этом примере в myDocument добавляется прямоугольник.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape Type:=msoShapeRectangle, _
Left:=50, Top:=50, Width:=100, Height:=200
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.