A family of Microsoft presentation graphics products that offer tools for creating presentations and adding graphic effects like multimedia objects and special effects with text.
- I searched on powerpoint vba find shape by position and replace.
- I found this page: VBA Powerpoint - find shape and replace
- It had this code that you can adapt to do what you need:
Sub ReplacePowerPointShape(ByVal PowerPointShapeToReplace As Object, ByVal ShapeToCopy As Object)
Dim targetSlide As Slide
Set targetSlide = PowerPointShapeToReplace.Parent
ShapeToCopy.Copy
targetSlide.Shapes.Paste
With targetSlide
With .Shapes(.Shapes.Count)
.LockAspectRatio = msoFalse
.Left = PowerPointShapeToReplace.Left
.Top = PowerPointShapeToReplace.Top
.Width = PowerPointShapeToReplace.Width
.Height = PowerPointShapeToReplace.Height
End With
End With
PowerPointShapeToReplace.Delete
End Sub
Here's a page that explains how to loop over every slide: Loop Through Each Slide In Your PowerPoint Presentation