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

Ursprüngliche Quelle: Office Loesung - User Jump(y) - Script wurde etwas modifiziert.