WD97: Run-Time Error Attempting to UnGroup Shape Objects

• Microsoft Word 97 for Windows

SYMPTOMS

When you run a Visual Basic for Applications macro that attempts to ungroup a range of objects, you may receive the following error:

   Run time error '424': Object required

CAUSE

This error occurs because there are no objects selected to ungroup.

WORKAROUND

Add .Select to the group and ungroup the commands, as in the following example:

   Sub UnGroupShapes()
      Dim oshape1 As Object
      Dim oshape2 As Object
      'Create new blank document.
      Application.Documents.Add
      'Create two shapes(Hexagon and Heart).
      Set oshape1 = ActiveDocument.Shapes.AddShape _
      (10, 122.4, 79.2, 72#, 72#)
      Set oshape2 = ActiveDocument.Shapes.AddShape _
      (21, 230.4, 79.2, 72#, 72#)
      'Select both shapes.
      oshape1.Select
      oshape2.Select (0)
      'Group the shapes.
      Selection.ShapeRange.Group.Select
      'UnGroup the shapes.
      Selection.ShapeRange.Ungroup.Select
   End Sub

   Selection.ShapeRange.Group.Select
   Selection.ShapeRange.Ungroup

   Selection.ShapeRange.Group.Select
   Selection.ShapeRange.Ungroup.Select

For more information about grouping and ungrouping shapes, click the Office Assistant in the Visual Basic for Applications Editor, type "ShapeRange," click Search, and then click to view "ShapeRange Collection Object."

Microsoft provides examples of Visual Basic for Applications procedures for illustration only, without warranty either expressed or implied, including, but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. The Visual Basic procedures in this article are provided 'as is' and Microsoft does not guarantee that they can be used in all situations. While Microsoft support engineers can help explain the functionality of a particular macro, they will not modify these examples to provide added functionality, nor will they help you construct macros to meet your specific needs. If you have limited programming experience, you may want to consult one of the Microsoft Solution Providers. Solution Providers offer a wide range of fee-based services, including creating custom macros. For more information about Microsoft Solution Providers, call Microsoft Customer Information Service at (800) 426-9400.