Construct ShapeRange from dynamic array, or add shape to ShapeRange?

[gravanoc]

I'm trying to create a ShapeRange from a number of shapes without knowing how many until runtime.

The method I'm using to create the ShapeRange is [Sheet Name].Shapes.Range(Array([Shape 1].Name, [Shape 2].Name, ... [Shape n].Name))
For ex:

Dim sR as ShapeRange
Dim shpTable(0 to 1) As Shape

Set shpTable(0) = wks.Shapes("Shape 1")_
Set shpTable(1) = wks. Shapes("Shape 2")

 Set sR = wks.Shapes.Range(Array(shpTable(0).Name, shpTable(1).Name))

I haven't been able to make it work dynamically. One method I tried was constructing a string with the names of the shapes and placing the string in Array().
I don't see a method for ShapeRange that allows me to add shapes to it, either.

 

[Domenic]

Your code can be amended so that you assign the shapes' names to your array, instead of the shape itself...

    Dim sR As ShapeRange
    Dim shpTable(0 To 1) As String
    
    shpTable(0) = wks.Shapes("Shape 1").Name
    shpTable(1) = wks.Shapes("Shape 2").Name
    
    Set sR = wks.Shapes.Range(shpTable)

To make it dynamic, try...

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    Dim shapesArray() As String
    ReDim shapesArray(1 To ws.Shapes.Count)
    
    Dim shapeIndex As Long
    For shapeIndex = 1 To UBound(shapesArray)
        shapesArray(shapeIndex) = ws.Shapes(shapeIndex).Name
    Next shapeIndex
    
    Dim shpRng As ShapeRange
    Set shpRng = ws.Shapes.Range(shapesArray)

Hope this helps!

 

[gravanoc]

Awesome, thanks.