Sub test()
Dim st As Worksheet, sp As Shape
For Each st In ThisWorkbook.Worksheets
For Each sp In st.Shapes
sp.PictureFormat.TransparencyColor = RGB(255, 255, 255)
Next
Next
End Sub
Sub test()
Dim st As Worksheet, sp As Shape
For Each st In ThisWorkbook.Worksheets
For Each sp In st.Shapes
sp.PictureFormat.TransparencyColor = RGB(255, 255, 255)
Next
Next
End Sub