Macro works for X4 - 2020
You can customize the code to suit your taste. Color, mm,etc.
Sub QuickDimensions()
Dim srSelection As ShapeRange
Dim x As Double, y As Double, w As Double, h As Double
Dim sPt1 As SnapPoint, sPt2 As SnapPoint
Dim s As Shape
Optimization = True...