title: Convert shape size to cm
body: <p>I have VBA code for changing size of shapes, but I want to convert the number to be in cm. Any suggestion for how to convert these numbers?<br>
  Another question is that I want to change the same size for multiple selected shapes; can you help me with this as well?</p>
  
  <p>Thank you very much!</p>
  
  <pre><code>Sub test()
      Dim objHeigh As Integer
      Dim objWidth As Integer
      Dim oSh As Shape
  
      On Error GoTo CheckErrors
  
      With ActiveWindow.Selection.ShapeRange
          If .Count = 0 Then
              MsgBox "You need to select a shape first"
              Exit Sub
          End If
      End With
  
      For Each oSh In ActiveWindow.Selection.ShapeRange
          objHeigh = oSh.Height
          objWidth = oSh.Width
  
          objHeigh = CInt(InputBox$("Assign a new size of Height", "Heigh", objHeigh))
          ' give the user a way out
          If objHeigh = 0 Then
              Exit Sub
          End If
  
          If objName &lt;&gt; "" Then
              oSh.Name = objName
          End If
  
          objWidth = CInt(InputBox$("Assign a new size of Width", "Width", objWidth))
          ' give the user a way out
          If objWidth = 0 Then
              Exit Sub
          End If
  
          oSh.Height = CInt(objHeigh)
          oSh.Width = CInt(objWidth)
      Next
      Exit Sub
  
      CheckErrors: MsgBox Err.Description
  End Sub 
  </code></pre>