word将剪贴板中的图片放到圆角矩形中，用VBA代码如何实现？

vistababy

就是在word中，插入一张图片，复制，然后插入----形状---圆角矩形，矩形右键---设置形状格式，在右侧窗口中点“填充---图片---来自剪贴板”，就可以把刚刚在剪贴板中的图片放到圆角矩形中，图片就有了圆角。如下图所示。
这个是能实现的。但我想得到vba代码，试着用宏录制，发现这些操作不能录制。
有高手知道怎么弄吗？有代码不？谢谢
版本：word2016或2021（因为2013及以下版本好像没有这个把剪贴板中的图片放到形状中的功能，当然2013有把图片文件放到形状中的功能，不支持剪贴板啊）
求代码

约定的童话

Sub InsertPictureInRoundedRectangle()
    Dim rng As Range
    Dim shp As Shape

    ' 插入圆角矩形
    Set rng = Selection.Range
    Set shp = ActiveDocument.Shapes.AddShape(msoShapeRoundedRectangle, rng.Left, rng.Top, 200, 100)
   
    ' 设置圆角矩形的样式
    With shp
        .Fill.Visible = msoTrue
        .Fill.UserPicture "C:\路径\图片.jpg"  ' 设置默认图片，可更改为其他图片路径
        .Fill.TextureTile = msoFalse
        .Fill.TextureOffsetX = 0
        .Fill.TextureOffsetY = 0
        .Fill.RotateWithObject = msoTrue
        .Fill.Transparency = 0
        .Fill.BackColor.RGB = RGB(255, 255, 255)
        .Fill.ForeColor.RGB = RGB(255, 255, 255)
    End With
   
    ' 粘贴剪贴板中的图片
    rng.Paste
   
    ' 将剪贴板中的图片设置为圆角矩形的填充图片
    With shp.Fill
        .Visible = msoTrue
        .UserPicture
    End With
End Sub

perfect131

附件呢？？？

vistababy

约定的童话 发表于 2023-7-20 20:25
Sub InsertPictureInRoundedRectangle()
    Dim rng As Range
    Dim shp As Shape

测试过吗？我试了一下，好像没有用啊。。而且还出错。我也搞不懂了。
把文档中已经存在的图片复制或剪切到剪贴板，然后插入一个圆角矩形，把刚刚剪切的图片填充放到圆角矩形当中，这个没有实现，就是这个有难度，说明白点就是给文档中已经存在的图片加圆角，而不需要从外部选择图片或插入图片。

如果是先插入一个圆角矩形，然后填充图片，从文件管理器中选中一张图片，这个倒是很简单的。

vistababy

约定的童话 发表于 2023-7-20 20:25
Sub InsertPictureInRoundedRectangle()
    Dim rng As Range
    Dim shp As Shape

我发现了一个更简单的方法，就是映像圆角矩形功能，可以直接给里面的图片加圆角，再将右边参数后3个全部设为0或将透明度设置为100%，就可以取消下边的重影。
但VBA代码呢？录制也录不出来

约定的童话

vistababy 发表于 2023-7-24 14:21
我发现了一个更简单的方法，就是映像圆角矩形功能，可以直接给里面的图片加圆角，再将右边参数后3个全 ...

你这需求干嘛用的？附件发我研究下QQ1975382969

vistababy

约定的童话 发表于 2023-7-24 20:39
你这需求干嘛用的？附件发我研究下QQ1975382969

也没啥特殊用途，就是想一键批量给文档里面的图片加圆角而已，再设置一个固定的长宽尺寸。
先插入圆角形状，再填充图片，这个批量功能我已经做好了，批量处理身份证老方便了
但是如果图片已经在文档中，却不太好弄，所以需要这个功能

vistababy

不过本贴寻求的方法用的机会不是很多。。

vistababy