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