Метод Shapes.Add3DModel (Word)

  • Статья

Добавляет трехмерную модель на полотно. Возвращает объект Shape, представляющий трехмерную модель, и добавляет его в коллекцию CanvasShapes.

Синтаксис

выражение.Add3DModel (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
FileName Обязательный String Путь и имя файла трехмерной модели.
LinkToFile Необязательный Variant Используйте значение True для связи трехмерной модели с файлом, из которого она была создана. Используйте значение False, чтобы сделать трехмерную модель независимой копией файла. Значение по умолчанию — False.
SaveWithDocument Необязательный Variant Используйте значение True для сохранения связанной трехмерной модели с документом. Значение по умолчанию — False.
Left Необязательный Variant Измеряемое в пунктах положение левого края новой трехмерной модели относительно полотна.
Top Необязательный Variant Измеряемое в пунктах положение верхнего края новой трехмерной модели относительно полотна.
Width Необязательный Variant Ширина трехмерной модели в пунктах (введите -1 для автоматического вычисления ширины на основе размеров трехмерной модели).
Height Необязательный Variant Высота трехмерной модели в пунктах (введите -1 для автоматического вычисления высоты на основе размеров трехмерной модели).

Возвращаемое значение

Shape

Пример

В этом примере трехмерная модель внедряется в созданное полотно в активном документе.

Sub NewCanvasPicture() 
 Dim shpCanvas As Shape 
 
 'Add a drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas(Left:=100, Top:=75, Width:=200, Height:=300)
 
 'Add a 3D model to the drawing canvas 
 shpCanvas.CanvasItems.Add3DModel(FileName:="c:\my 3D models\sphere.glb", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=70, Height:=70)
End Sub

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

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