I think the above code is for PowerPoint not Visio?