Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Ungrouping shapes
Using Visual Basic 6 (not VBA) and Excel 2000
I have graphics and text grouped together on a worksheet. I need to update the text. Trying to ungroup in the follow code I get run time erro 1004 "Application- defined or object-defined error" from Excel back to VB. For Each xlWorkSheet In xlWorkbook.Sheets xlWorkSheet.Select For I = 1 To xlWorkSheet.Shapes.Count Shape = xlWorkSheet.Shapes(I) If Shape.Type = msoGroup Then Shape.Select Shape.Ungroup <-- crash and burn here. End if Next I Next xlWorkSheet help? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Ungrouping shapes
Don't use variables that are spelled the same as terms Excel already
has defined... try shp instead of Shape. Declare your variables with the appropriate data type... Dim shp as xlApp.Shape You must "Set" an object (shp) after declaring it so that Excel knows what it refers to. Or you can use it in a For/Next loop and Excel will make an implied reference for you... '-- For Each shp in xlWorkSheet.Shapes If shp.Type = msoGroup then shp.Ungroup Next '-- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "Carey Carlan" wrote in message Using Visual Basic 6 (not VBA) and Excel 2000 I have graphics and text grouped together on a worksheet. I need to update the text. Trying to ungroup in the follow code I get run time erro 1004 "Application- defined or object-defined error" from Excel back to VB. For Each xlWorkSheet In xlWorkbook.Sheets xlWorkSheet.Select For I = 1 To xlWorkSheet.Shapes.Count Shape = xlWorkSheet.Shapes(I) If Shape.Type = msoGroup Then Shape.Select Shape.Ungroup <-- crash and burn here. End if Next I Next xlWorkSheet help? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
excel document with shapes on it but the shapes do not print | Excel Worksheet Functions | |||
Ungrouping | Excel Discussion (Misc queries) | |||
Naming Auto Shapes and Creating new Shapes | Excel Discussion (Misc queries) | |||
When drawing shapes in excel the shapes keep disappearing | Excel Discussion (Misc queries) | |||
Ungrouping using vb | Excel Programming |