问VBA，word中vba嵌入图片的问题？

各位大佬，请教下，在word中我用vba编写一段代码，

要求：1.将c:\pictures里面的图片导入到word中

2.检查这些图片的边框，如果是红色的，就将这些图片设置为透明

但是我查资料发现vba好像不能对图片的透明度进行设置，需要先插入矩形，然后图片嵌入到矩形里面，所以需求需要检测pictures文件夹里面的图片数量，然后插入相应数量的矩形，然后在进行编辑透明度，以下是我自己写的插入矩形，但是遍历文件夹以及嵌入图片不知道怎么操作，有没有大佬帮我看下应该怎么写：

Sub AddAndFormatImages()

For i = 0 To 4

Dim rectangle As Shape

Set rectangle = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 100, 0 + 120 * i, 100, 100)

Next