Why does the first example of code work but second does not? Excel says .ShapeRange.Fill causes Error 438 -- Trying to learn about shapes.

[OaklandJim]

'This works   
    ActiveSheet.Shapes.Range(Array("TestShape1")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.6000000238
        .Transparency = 0
        .Solid
    End With

'   This chokes    
    With ActiveSheet.Shapes.Range(Array("TestShape1"))
        With .ShapeRange.Fill
            .Visible = msoTrue
            .ForeColor.ObjectThemeColor = msoThemeColorAccent1
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = 0.6000000238
            .Transparency = 0
            .Solid
        End With
    End With

 

[DanteAmor]

You are missing the word Selection

'   This chokes
    With ActiveSheet.Shapes.Range(Array("TestShape1"))
        With Selection.ShapeRange.Fill
            .Visible = msoTrue
            .ForeColor.ObjectThemeColor = msoThemeColorAccent1
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = 0.6000000238
            .Transparency = 0
            .Solid
        End With
    End With

 

[OaklandJim]

Thanks DanteAmor! I guess that I'm just thick-headed. I think that I made some progess.

Dim oShape As Shape

Set oShape = ActiveSheet.Shapes("TestShape1")

With oShape
With .Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0.6000000238
.Transparency = 0
.Solid
End With
End With

 

[DanteAmor]

The With statement allows you to perform a series of statements on a specified object without requalifying the name of the object.

Then:

Sub test2()
  Dim oShape As Shape
 
  Set oShape = ActiveSheet.Shapes("TestShape1")
 
  With oShape.Fill
    .Visible = msoTrue
    .ForeColor.ObjectThemeColor = msoThemeColorAccent1
    .ForeColor.TintAndShade = 0
    .ForeColor.Brightness = 0.6000000238
    .Transparency = 0
    .Solid
  End With
End Sub

Or simply:

Sub test3()
  With ActiveSheet.Shapes("TestShape1").Fill
    .Visible = msoTrue
    .ForeColor.ObjectThemeColor = msoThemeColorAccent1
    .ForeColor.TintAndShade = 0
    .ForeColor.Brightness = 0.6000000238
    .Transparency = 0
    .Solid
  End With
End Sub

Another way to apply it:

Sub test4()
  With ActiveSheet.Shapes("TestShape1").Fill
    .Visible = msoTrue
    
    With .ForeColor
      .ObjectThemeColor = msoThemeColorAccent1
      .TintAndShade = 0
      .Brightness = 0.6000000238
    End With
    
    .Transparency = 0
    .Solid
  End With
End Sub