Userpicture方法自动旋转图片

Question

我想用各种图片填充形状（取决于变量），这对于某些图片来说效果很好。但是，对于某些图片，它会自动将图片旋转90°。我真的不知道为什么会这样。你们可以帮忙吗？代码如下：

    Sub insertpic()

    Dim Name As String
    Dim Name2 As String

    Name = Worksheets("namesource").Range("B2").Value
    Name2 = Name & ".JPG"


    Sheets("destination").Activate
    ActiveSheet.Shapes.Range(Array("Rectangle 3")).Select

        With Selection.ShapeRange.Fill
            .Visible = msoTrue
            .UserPicture "C:\Users\Path & Name2 & ""
            .TextureTile = msoFalse
        End With
   End sub

大多数情况下都是通过录制宏来学习VBA的，所以请多多包涵。

非常感谢

最好， S

2张照片。图片A以正确的方向插入；插入时，图片B旋转90°：

Picture A Picture B