Excel VBA生成含图片与对应描述的Word文档问题求助

各位大佬好！我正在用Excel VBA做一个自动生成Word报告的工具，需求是把Excel里的图片和对应描述批量导入到Word里：

• Excel的A列是图片文件名，B到I列是这张图片对应的多列描述内容
• 目前宏已经能弹出FileDialogFolderPicker让用户选择图片所在的文件夹，也尝试根据A列的文件名匹配对应图片，再创建Word文档插入内容

但现在遇到了几个问题，实在搞不定，想请大家帮忙：

1. 图片和对应的描述没办法正确对应插入到Word的合适位置，排版总是乱掉
2. 不知道怎么给插入的图片锁定纵横比
3. 希望能自定义设置图片的英寸尺寸

我还准备了当前生成的Word效果截图和期望的最终效果截图，可惜没法直接贴上来，总之就是现在的排版完全不符合预期，图片和描述对应不上。

下面是我目前的代码片段：

Sub Module2()

    Dim ws As Worksheet, lastR As Long, rngPict As Range, rngP As Range, cel As Range
    Dim...

备注：内容来源于stack exchange，提问作者Kyle Anderson