Count the number of objects by name

    public void CountShapeByName()
        {
            Dictionary<string, int> s = new Dictionary<string, int>();
            ShapeRange shapes = app.ActiveDocument.SelectableShapes.All();
            for (int i = 1; i <= shapes.Count; i++)
            {
                if (!s.ContainsKey(shapes[i ].Name))
                {
                    s.Add(shapes[i ].Name, 1);
                }
                else
                {
                    s[shapes[i ].Name]++;
                }
            }
            string msg = "";
            foreach (var item in s)
            {
                msg += item.Key + "\t";
            }
            msg += System.Environment.NewLine;
            foreach (var item in s)
            {
                msg += item.Value + "\t";
            }
            System.Windows.Forms.Clipboard.SetText(msg);
            System.Windows.Forms.MessageBox.Show("Copied");
        }