Manipulating Shapes In PowerPoint Using VBA

[@nicolasm31]

how do we know wich index each shape have? .... thanks

[@tommarquez1980]

Thanks, I really appreciate your contribution.

[@SigmaCoding]

Glad it was helpful!

[@ethanprincenthal2715]

Great video, as always. These have been incredibly helpful throughout my summer internship. Do you know what could cause a shape to be pasted a little below the center of the slide? I am using the msoAlignMiddles and msoAlignCenters method and exporting range arrays (using the method from your export range to PPT video). Thanks for the super helpful videos

[@sagargondage6266]

How can enter text box?

[@MohaMed-AdeL1]

good work but bad resolution need high resolution to just read code

[@61814fahad]

very helpful tutorial .But i have a problem with my shape . I am struggling to set a perfect rotation so that it shows like i perpendicular line object.my code for the rotation of line object is given below. can you please review it and give me a solution.
Sub AddStraitLine()
With PPApp.ActivePresentation.Slides(1).Shapes.AddLine(BeginX:=2.78 * Inch, BeginY:=3.44 * Inch, _
EndX:=5.72 * Inch, EndY:=5.84 * Inch).Line
.DashStyle = msoLineSolid
.ForeColor.RGB = RGB(186, 184, 184)
.Visible = msoTrue
.Transparency = 0.5

End With
PPApp.ActivePresentation.Slides(1).Shapes(4).ThreeD _
.RotationX = 0
End Sub
Thanks in advance.