Создать позицию вставленного графика в powerpoint

Question

Я пытаюсь написать код VBA, который может воспроизводить следующую форму:

Я написал фрагмент кода, который может создать форму:

Sub InsertShape()

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape Type:=msoShapeChevron, _
    Left:=50, Top:=50, Width:=100, Height:=200


End Sub

Однако сейчас я ищу способ, которым я могу отрегулировать ширину и высоту и переместить его в заданное положение c. Если щелкнуть форму (см. Выделенные области), я вижу, что целевая форма имеет следующие значения:

Высота: 6:51 С: 7,07

Горизонтальное положение: 11,16 Вертикальное позиция: 4,52

Любые отзывы о том, что я должен добавить в код, чтобы фигура находилась в правильном положении (+ правильная ширина и высота).

Answer 1

Используйте параметры .Height / .Width / .Left / .Top для настройки размера и положения фигуры (обратите внимание, что значения указаны в точках; 28,35 точки / см или 72 точки / дюйм).

Используйте свойство формы .Adjustments (1) для изменения характеристик фигуры. Начните со значения примерно .2, чтобы получить форму, которую вы ищете.

Sub InsertShape()
' ALWAYS Dim your variables
Dim myDocument as Slide
Dim oSh as Shape

Set myDocument = ActivePresentation.Slides(1)
Set oSh = myDocument.Shapes.AddShape Type:=msoShapeChevron, _
    Left:=50, Top:=50, Width:=100, Height:=200
With oSh
   .Adjustments(1) = .2
   ' Change other shape properties here too if you wish
End With

End Sub