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;
}
