Array of Variant with shapes not visible on slide

[YorickG]

Hello all, probably a very newbie question, however I can't figure it out.

I want to check RGB values of text in shape. Shapes have random names (for example Title, Title 2, Title 3). My code works in case there is shape "Title" and "Title 2" present on slide. How to modify this code to work with only one shape present. ID titles are random. So it should work with name for example from range Title - Title 10.

 Dim N As Long, R As Long, G As Long, B As Long    Dim shp As Shape
    Dim titleShp() As Variant


    
On Error Resume Next
For i = 1 To N
Next i


If ActiveWindow.View.Slide.Shapes("A1a").Visible = False Then
MsgBox "There is no color palette on this slide :)"
End If


titleShp = Array("Title", "Title 2")


'ACCENT1 - CODE
     
    With ActiveWindow.View.Slide.Shapes("A1a")
         
        .Fill.ForeColor.RGB = ActiveWindow.View.Slide.Shapes.Range(titleShp).TextFrame.TextRange.Font.Color
        .TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255)
        .TextFrame.TextRange.Font.Size = 7
        .TextFrame.TextRange.Font.Bold = True
        
        N = ActiveWindow.View.Slide.Shapes.Range(titleShp).TextFrame.TextRange.Font.Color
         
        B = N \ 65536
        G = (N - B * 65536) \ 256
        R = N - B * 65536 - G * 256
         
        .TextFrame.TextRange.Characters.Text = "Title: " & "R:" & R & " G:" & G & " B:" & B
        
         
    End With

[Paul_Hossler]

Not exactly clear what the intent of your macro is, but taking a guess ....

Option Explicit

Sub test()

Dim N As Long, R As Long, G As Long, B As Long
Dim shp As Shape, shpPalette As Shape

If ActiveWindow.View.Slide.Shapes("A1a").Visible = False Then
    MsgBox "There is no color palette on this slide :)"
End If
 
Set shpPalette = ActiveWindow.View.Slide.Shapes("A1a")

With shpPalette
    .Fill.ForeColor.RGB = ActiveWindow.View.Slide.Shapes.Range(titleShp).TextFrame.TextRange.Font.Color
    .TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255)
    .TextFrame.TextRange.Font.Size = 7
    .TextFrame.TextRange.Font.Bold = True
End With

For Each shp In ActiveWindow.View.Slide.Shapes
    
    If shp.Name Like "Title*" Then
        N = shp.TextFrame.TextRange.Font.Color
         
        B = N \ 65536
        G = (N - B * 65536) \ 256
        R = N - B * 65536 - G * 256
         
        MsgBox shp.TextFrame.TextRange.Characters.Text = "Title: " & "R:" & R & " G:" & G & " B:" & B
    End If
Next

End Sub

[YorickG]

Thank you very much Paul. you set me on right track with

If shp.Name Like "Title*" Then

That's exactly what I was looking for. I modified my code and now it's working the way I planned. I added also .Paragraphs(1) (2) etc so now I can check RGB values of specific paragraph.
From what I learned thanks to you I understand that having an array will require all shapes to be visible/present on slide. "Like" will help with random shape names. For learning purpose I have a question. Is there a way to have an array which behaves somehow like "Like". So for example I have an array with shape names but they behave like an "option".
Bets regards

[Paul_Hossler]

Not sure about 'option' but an array would work

Option Explicit
 
Sub test()
     
    Dim N As Long, R As Long, G As Long, B As Long
    Dim shp As Shape, shpPalette As Shape
    Dim aShapesToUse As Variant
    Dim i As Long
     
    If ActiveWindow.View.Slide.Shapes("A1a").Visible = False Then
        MsgBox "There is no color palette on this slide :)"
    End If
     
    Set shpPalette = ActiveWindow.View.Slide.Shapes("A1a")
     
    With shpPalette
        .Fill.ForeColor.RGB = ActiveWindow.View.Slide.Shapes.Range(shpPalette).TextFrame.TextRange.Font.Color
        .TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255)
        .TextFrame.TextRange.Font.Size = 7
        .TextFrame.TextRange.Font.Bold = True
    End With
     
    
    '------------------------------------------------------------------ use an array
    aShapesToUse = Array("Title", "Title 1", "Title 2")
    For i = LBound(aShapesToUse) To UBound(aShapesToUse)
        Set shp = ActiveWindow.View.Slide.Shapes(aShapesToUse(i))
         
        N = shp.TextFrame.TextRange.Font.Color
         
        B = N \ 65536
        G = (N - B * 65536) \ 256
        R = N - B * 65536 - G * 256
         
        MsgBox shp.TextFrame.TextRange.Characters.Text = "Title: " & "R:" & R & " G:" & G & " B:" & B
    Next
     
End Sub