Thread: Product Image configurator Help

Some thing like this which extracts the value from the shapes text.

Sub PriceList()

    Dim rngChasis As Range
    Dim shpTemp As Shape
    Dim strCost As String
    
    Set rngChasis = Range("L2:Z5")
    
    For Each shpTemp In ActiveSheet.Shapes
        If Not Intersect(rngChasis, Range(shpTemp.TopLeftCell, shpTemp.BottomRightCell)) Is Nothing Then
            If shpTemp.Type = msoPicture Then
                ' ignore picture
            Else
                If Len(shpTemp.TextFrame.Characters.Text) > 0 Then
                shpTemp.Select
                    strCost = Split(shpTemp.TextFrame.Characters.Text, vbLf)(1)
                    Debug.Print shpTemp.TopLeftCell.Address, shpTemp.Name, strCost
                End If
            End If
        End If
    Next
    
End Sub