Visio Shapegrößen vereinheitlichen

Sub Anpassen()
  Dim Shp As Visio.Shape
  For Each Shp In ActivePage.Shapes
    If Shp.OneD = False Then
      If Shp.Master = "Prozess" Then           '<= hier gewünschten Shape Namen einsetzen
        Shp.Cells("Width").Result("MM") = 100  '<= hier gewünschte Breite in mm einsetzen
        Shp.Cells("Height").Result("MM") = 60  '<= hier gewünschte Höhe in mm einsetzen
      End If
    End If
  Next Shp
End Sub