将形状颜色与单元格颜色匹配 - vba

I am looking to set up a basic loop to set the color of each shape in the worksheet to match a corresponding cell in a table (conditional formatted).I am looking to set up a basic loop to set the