Sub Macro1()
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Solid
End With
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
End Sub
-----------------
Sub Macro2()
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
ActiveSheet.Shapes.Range(Array("Picture 1", "Picture 3")).Select
ActiveSheet.Shapes.Range(Array("Picture 1", "Picture 3", "Picture 4")). _
Select
ActiveSheet.Shapes.Range(Array("Picture 1", "Picture 3", "Picture 4", _
"Picture 5")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Solid
End With
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
End Sub