vba获取指定文件夹图片

cc不爱学习

大佬们好，写一段vba代码，在word里面运行，
要求：在C:\pictures文件夹内有一些5张图片要插入到word里，
          随机2个以上将插入图片的边框标记为红色，并且让他们透明度为100%



我只能做到自己添加矩形，，没有办法让图片嵌入到矩形里面，有没有大佬帮我续写下面的代码

Sub AddAndFormatImages()
    ' 在当前 Word 文档中添加 5 个矩形
    For i = 0 To 6
        Dim rectangle As Shape
        Set rectangle = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 100, 0 + 120 * i, 100, 100)

cc不爱学习

顶一下，不要沉啊

喂你吃粑粑

虽然我不是很懂，但是你应该发一点资料上来，这样大佬才方便帮你处理，你这段话不清不楚的

sj15627581616

至少上传文件+手工做好的效果吧，就算有懂代码的，连起码的配套文件都没有，大佬们想帮写都难

gwjkkkkk

添加附件，模拟结果。。。

ykcbf1100

求助不认真，别人想帮也是有心无力。

cc不爱学习

ykcbf1100 发表于 2024-1-19 19:53
求助不认真，别人想帮也是有心无力。

快拉倒吧你

cc不爱学习

喂你吃粑粑 发表于 2024-1-19 17:17
虽然我不是很懂，但是你应该发一点资料上来，这样大佬才方便帮你处理，你这段话不清不楚的

是你看不懂还是我写的不清楚，

cc不爱学习

sj15627581616 发表于 2024-1-19 17:22
至少上传文件+手工做好的效果吧，就算有懂代码的，连起码的配套文件都没有，大佬们想帮写都难

你告诉我需要什么文件，就嵌入图片，还配套文件，遇到你这些回答还真让人无语，

huarong7984

cc不爱学习 发表于 2024-1-22 10:08
你告诉我需要什么文件，就嵌入图片，还配套文件，遇到你这些回答还真让人无语，

对你这样的求助方式和态度：真是无语+无语