如何在VBA中使SVG图片适配固定尺寸区域？

问题根源 #

部分SVG文件（比如你提到的毛里塔尼亚国旗）自带固定宽高属性或严格的比例限制，导致Excel执行Shapes.AddPicture时，会强制遵循SVG的原始比例，直接忽略你指定的Width:=150, Height:=100参数。而德国国旗的SVG没有这类强制约束，所以能正常适配指定尺寸。

可行解决方案 #

方案1：修改SVG的属性代码

如果能获取到目标SVG的源代码，删除其中固定的width和height属性，只保留viewBox参数。举个例子：
原SVG开头可能是：

<svg width="600" height="400" viewBox="0 0 600 400" xmlns="http://www.w3.org/2000/svg">

修改后：

<svg viewBox="0 0 600 400" xmlns="http://www.w3.org/2000/svg">

修改后的SVG插入Excel时，会完全按照你指定的宽高适配，不会强制保持原始比例。

方案2：VBA插入后强制调整形状属性

不需要修改SVG文件，直接在插入后关闭形状的纵横比锁定，再重新设置一次宽高（数值和你指定的一致即可）：

Public Sub Macro1()
    Dim Picture1 As String
    Picture1 = "目标SVG的本地路径或在线地址"

    With ActiveSheet.Shapes.AddPicture(Filename:=Picture1, LinkToFile:=False, SaveWithDocument:=True, Left:=50, Top:=50, Width:=150, Height:=100)
        .Name = "myPicture"
        .LockAspectRatio = msoFalse '关闭纵横比锁定
        .Width = 150 '强制设置宽高，确保填满固定区域
        .Height = 100
    End With
End Sub

这个方法会让SVG完全适配你指定的150x100区域，不管原始比例如何。

内容的提问来源于stack exchange，提问作者Danny Coleiro