Метод userpicture автоматически поворачивает изображение - PullRequest
0 голосов
/ 02 декабря 2018

Я хочу заполнить форму различными изображениями (в зависимости от переменной), которая отлично работает для некоторых изображений.Однако для некоторых изображений он автоматически поворачивает изображение на 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, записывая макросы, поэтому терпите меня, пожалуйста.

Большое спасибо

Best, S

2 картинки.Изображение А вставлено в правильной ориентации;Изображение B поворачивается на 90 ° при вставке:

Изображение A Изображение B

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...