Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Grouping Shapes
Hi, Just can't figure how to group shapes of a sheet.. something like: For i = 1 To ActiveSheet.Shapes.Count If Left(ActiveSheet.Shapes(i).Name, 6) = "Forme " Then AddtoGroup Next i I can do this: ActiveSheet.Shapes.Range(Array("Shape1", "Shape2")).Select Selection.ShapeRange.Group.Selec But the "Array" part in my case is variable and I can't find how to pu a variable instead of Array("Shape1", "Shape2")). Thank ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Grouping Shapes
Hi Mat
Here's one way to do it: Sub MakeShapeRange() 'Leo Heuser, 20 Nov. 2003 Dim Counter As Long Dim NumShapes As Long Dim NumShapesToUse As Long Dim SelectShapes As ShapeRange Dim ShapeName() As Variant NumShapesToUse = 0 With ActiveSheet NumShapes = .Shapes.Count For Counter = 1 To NumShapes If Left(.Shapes(Counter).Name, 6) = "Forme " Then NumShapesToUse = NumShapesToUse + 1 ReDim Preserve ShapeName(1 To NumShapesToUse) ShapeName(NumShapesToUse) = .Shapes(Counter).Name End If Next Counter Set SelectShapes = .Shapes.Range(ShapeName) SelectShapes.Select End With End Sub -- Best Regards Leo Heuser Followup to newsgroup only please. "MatP" skrev i en meddelelse ... Hi, Just can't figure how to group shapes of a sheet.. something like: For i = 1 To ActiveSheet.Shapes.Count If Left(ActiveSheet.Shapes(i).Name, 6) = "Forme " Then AddtoGroup Next i I can do this: ActiveSheet.Shapes.Range(Array("Shape1", "Shape2")).Select Selection.ShapeRange.Group.Selec But the "Array" part in my case is variable and I can't find how to put a variable instead of Array("Shape1", "Shape2")). Thanks ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ |
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 | |||
Naming Auto Shapes and Creating new Shapes | Excel Discussion (Misc queries) | |||
When drawing shapes in excel the shapes keep disappearing | Excel Discussion (Misc queries) | |||
How can i get more 3D shapes for Auto shapes in excel? | Excel Discussion (Misc queries) | |||
How can i get more 3D shapes for Auto shapes in excel? | Excel Discussion (Misc queries) |