Nej, använder vi oss av svensk version så blir det så här att i namnfönstret visas det svenska namnet medan vid anrop till en kontroll från verktygsfältet "Formulär" i VBA blir det den engelska namnet.....
Sub test()
Dim shObjekt As Shape
Dim i As Long
i = 1
For Each shObjekt In ActiveSheet.Shapes
Cells(i, 1).Value = shObjekt.Name
Cells(i, 2).Value = shObjekt.Type
i = i + 1
Next
End Sub