0 Members and 1 Guest are viewing this topic.
Sub ChgMaster() 'Wapperdude Dim vShp As Visio.Shape For Each vShp In ActivePage.Shapes If (vShp.Master Is Nothing) Then Debug.Print "This shape has no master" Else Debug.Print vShp.Master.Name 'print list of existing masters If vShp.Master.Name = "Ellipse" Then vShp.ReplaceShape Application.Documents.Item("WkyShps.vssx").Masters.ItemU("WCir") End If End If Next Debug.Print "" 'print revised list of masters For Each vShp In ActivePage.Shapes Debug.Print vShp.Master.Name NextEnd Sub