问图片旋转时VBA excel .Left .Top

EN

Function fotoInsert(ByVal PictureFileName As String, ByVal rng As Range)

    Set pic = ActiveSheet.Pictures.Insert(PictureFileName)
    
    If pic.ShapeRange.Rotation = 90 Then
        With pic
              'keep original aspect ratio
              .ShapeRange.LockAspectRatio = msoTrue
              
              'Picture's aspect is less than rng aspect then adjust the picture's width to fit rng
             If (pic.Width \ pic.Height) <= (rng.Height \ rng.Width) Then
                 .Width = rng.Height - 1 'pictures' width is the larger height, by this line it fits exactly into range width
                 .Left = rng.Left + ((rng.Width - pic.Height) / 2)
                 .Top = rng.Top + 1
             Else 'Picture's aspect is greater than rng aspect then adjust the picture's height to fit rng
                 .Width = rng.Height - 1 'picture's heigth is larger than its width, this line makes it exactly fit int range height
                 .Top = rng.Top
                 .Left = rng.Left
             End If
        .Placement = xlMoveAndSize
        .PrintObject = True
        End With
    Else
        With pic
         'keep original aspect ratio
         .ShapeRange.LockAspectRatio = msoTrue
         
         'Picture's aspect is less than rng aspect then adjust the picture's width to fit rng
            If (.Height \ .Width) <= (rng.Height \ rng.Width) Then
                
                .Width = rng.Width - 1 'pictures' width is the larger height, by this line it fits exactly into range width
                .Left = rng.Left + 1 'position at left range border
                .Top = rng.Top + ((rng.Height - pic.Height) / 2) 'position in center of range height
            Else 'Picture's aspect is greater than rng aspect then adjust the picture's height to fit rng
                .Top = rng.Top + 1 'position at upper border of the range[/color]
                .Height = rng.Height - 1 'picture's heigth is larger than its width, this line makes it exactly fit int range height
                .Left = rng.Left + ((rng.Width - pic.Width) / 2) 'position in center of range width
            End If
        .Placement = xlMoveAndSize
        .PrintObject = True 'make sure picture gets printed
        End With
    End If
End Function

"A7:N46"