private static List<PowerPoint.Shape> ReplaceWithZoomRectangleImages(PowerPointSlide currentSlide, PowerPoint.ShapeRange shapeRange) { var zoomRectangles = new List<PowerPoint.Shape>(); int shapeCount = 1; foreach (PowerPoint.Shape zoomShape in shapeRange) { var zoomRectangle = currentSlide.Shapes.AddShape(Office.MsoAutoShapeType.msoShapeRectangle, zoomShape.Left, zoomShape.Top, zoomShape.Width, zoomShape.Height); currentSlide.AddAppearDisappearAnimation(zoomRectangle); // Set Name zoomRectangle.Name = "PPTLabsMagnifyShape" + DateTime.Now.ToString("yyyyMMddHHmmssffff"); // Set Text zoomRectangle.TextFrame2.TextRange.Text = "Zoom Shape " + shapeCount; zoomRectangle.TextFrame2.AutoSize = Office.MsoAutoSize.msoAutoSizeTextToFitShape; zoomRectangle.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = 0xffffff; zoomRectangle.TextFrame2.TextRange.Font.Bold = Office.MsoTriState.msoTrue; // Set Colour zoomRectangle.Fill.ForeColor.RGB = 0xaaaaaa; zoomRectangle.Fill.Transparency = 0.7f; zoomRectangle.Line.ForeColor.RGB = 0x000000; zoomRectangles.Add(zoomRectangle); zoomShape.Delete(); shapeCount++; } return zoomRectangles; }