Задать разный размер изображениям

@AwnDala · Регистрация: 06.04.2023

Author24 — интернет-сервис помощи студентам

Есть код, который выводит изображения .jpg в ворд с подписями. Изображения двух типов альбомной ориентации и портретной(т.е с поворотом на 90 градусов). Как задать всем изображениям разный размер в зависимости от ориентации. Например альбомной 5*10, а портретной 15*30.

shanemac51 · 14.04.2023, 15:36

Сообщение от AwnDala

а портретной 15*30

не понятен размер
- в каких единицах
- какой размер страницы, если 30см

@AwnDala · 14.04.2023, 15:53 **[ТС]**

Да, извиняюсь за неточность, желательно, конечно, в сантиметрах. Цифры приведены просто для примера. Главное, чтобы у разных по ориентации изображений, были разные размеры.

@Narimanych · 14.04.2023, 16:12

AwnDala,
Как вариант:

Visual Basic

Sub NNN()
        With ActiveDocument
            For i = 1 To .InlineShapes.Count
            If .InlineShapes.Item(i).Type = wdInlineShapePicture Then
                If .InlineShapes.Item(i).Height / .InlineShapes.Item(i).Width > 1 Then
                    .InlineShapes.Item(i).Height = 100
                     .InlineShapes.Item(i).Width = 300
                Else
                   .InlineShapes.Item(i).Height = 50
                     .InlineShapes.Item(i).Width = 100
                End If
            End If
        Next
        End With
End Sub

Пы.Сы. Размерчики подберите сами...

@AwnDala · 14.04.2023, 16:26 **[ТС]**

Visual Basic

...  
Dim shpCanvas As InlineShape       
...
Set InlineShape = Selection.InlineShapes.AddPicture(FileName:=ПутьКФайлу, LinkToFile:=False, SaveWithDocument:=True)
        
            If shp.Rotation = 0 Then
                shp.Height = CentimetersToPoints(10)
                shp.Width = CentimetersToPoints(15)
            ElseIf shp.Rotation = 90 Then
                shp.Height = CentimetersToPoints(22)
                shp.Width = CentimetersToPoints(16)
            End If
 
        
        Selection.InsertBefore Text:=vbNewLine + vbNewLine + "Ф" + NmOfF + ". П" + " " + Nm + ". В " + Surnames(NmOfP) + vbNewLine + " Д: " + ДатаИзменения + "."

Отрывок из кода, пришла пока что к такому, но почему то выдает ошибку 424

Добавлено через 9 минут

Сообщение от Narimanych

.InlineShapes.Item(i).Height = 50
.InlineShapes.Item(i).Width = 100
End If

размеры всех изображений пропорционально изменяются только по этим строка, а значения выше игнорируются

@Narimanych · 14.04.2023, 16:37

Сообщение от AwnDala

размеры всех изображений пропорционально изменяются только по этим строка, а значения выше игнорируются

Вы думаете я что-то понял из написанного...

Добавлено через 23 секунды
Пришлите файл ...

@AwnDala · 14.04.2023, 16:44 **[ТС]**

Сообщение от Narimanych

Пришлите файл

ссылка на диск
https://docs.google.com/docume... ue&sd=true

@Narimanych · 14.04.2023, 16:52

AwnDala,
Файл прикрепить сюда надо. На форум..

@AwnDala · 14.04.2023, 16:54 **[ТС]**

Сообщение от Narimanych

Файл прикрепить сюда надо.

Не получается, пишет слишком большой файл.

@Narimanych · 14.04.2023, 17:21

AwnDala,
Архивируйте и прикрепите

@AwnDala · 14.04.2023, 17:24 **[ТС]**

Сообщение от Narimanych

Архивируйте и прикрепите

Спасибо!

@Narimanych · 14.04.2023, 17:39

AwnDala,

Все вроде работает...

@AwnDala · 14.04.2023, 17:49 **[ТС]**

Сообщение от Narimanych

Все вроде работает...

А что с этой ошибкой делать

@Narimanych · 14.04.2023, 17:57

AwnDala,

Игнорировать...
В файле тот же код, что я выложил на форум...

Никаких опасностей не представляет.

@AwnDala · 14.04.2023, 18:01 **[ТС]**

Когда вставляю в свой код, выдает такую ошибку

shanemac51 · 14.04.2023, 20:16

Сообщение от AwnDala

Когда вставляю в свой код, выдает такую ошибку

пропущены параметры height и width

и получается ерунда, если запустить код 2 и более раз

кстати, сейчас заметила - фото расположены видимо неправильно
фото 1-10-11-12.......18-2-3-4-5-6-7-8-9

@Narimanych · 14.04.2023, 23:18

AwnDala,

Visual Basic

Sub NNN()
        With ActiveDocument
            For i = 1 To .InlineShapes.Count
            If .InlineShapes.Item(i).Type = wdInlineShapePicture Then
                If .InlineShapes.Item(i).Height / .InlineShapes.Item(i).Width > 1 Then
                    .InlineShapes.Item(i).Height = Application.CentimetersToPoints(10)
                     .InlineShapes.Item(i).Width = Application.CentimetersToPoints(15)
                Else
                   .InlineShapes.Item(i).Height = Application.CentimetersToPoints(22)
                     .InlineShapes.Item(i).Width = Application.CentimetersToPoints(16)
                End If
            End If
        Next
        End With
End Sub

Добавлено через 5 минут

Сообщение от shanemac51

и получается ерунда, если запустить код 2 и более раз

С дополнительной проверкойширины и высоты можно обойти измененные картинки...

@AwnDala 0 / 0 / 0 Регистрация: 06.04.2023 Сообщений: 9
	14.04.2023, 17:49 [ТС]	13
	Сообщение от Narimanych Все вроде работает... А что с этой ошибкой делать Миниатюры 0

@AwnDala 0 / 0 / 0 Регистрация: 06.04.2023 Сообщений: 9
		1
	Word Задать разный размер изображениям 14.04.2023, 15:10. Показов 988. Ответов 16 Метки vba word, макрос, макрос vba, макрос vba ворд word (Все метки) Есть код, который выводит изображения .jpg в ворд с подписями. Изображения двух типов альбомной ориентации и портретной(т.е с поворотом на 90 градусов). Как задать всем изображениям разный размер в зависимости от ориентации. Например альбомной 510, а портретной 1530. 0

shanemac51 Модератор 12080 / 4940 / 791 Регистрация: 07.08.2010 Сообщений: 14,492 Записей в блоге: 4
	14.04.2023, 15:36	2
	Сообщение от AwnDala а портретной 15*30 не понятен размер - в каких единицах - какой размер страницы, если 30см 1

@AwnDala 0 / 0 / 0 Регистрация: 06.04.2023 Сообщений: 9
	14.04.2023, 15:53 [ТС]	3
	Да, извиняюсь за неточность, желательно, конечно, в сантиметрах. Цифры приведены просто для примера. Главное, чтобы у разных по ориентации изображений, были разные размеры. 0

@Narimanych 2739 / 1714 / 778 Регистрация: 23.03.2015 Сообщений: 5,429
	14.04.2023, 16:37	6
	Сообщение от AwnDala размеры всех изображений пропорционально изменяются только по этим строка, а значения выше игнорируются Вы думаете я что-то понял из написанного... Добавлено через 23 секунды Пришлите файл ... 0

@AwnDala 0 / 0 / 0 Регистрация: 06.04.2023 Сообщений: 9
	14.04.2023, 16:44 [ТС]	7
	Сообщение от Narimanych Пришлите файл ссылка на диск https://docs.google.com/docume... ue&sd=true 0

@Narimanych 2739 / 1714 / 778 Регистрация: 23.03.2015 Сообщений: 5,429
	14.04.2023, 16:52	8
	AwnDala, Файл прикрепить сюда надо. На форум.. 0

@AwnDala 0 / 0 / 0 Регистрация: 06.04.2023 Сообщений: 9
	14.04.2023, 16:54 [ТС]	9
	Сообщение от Narimanych Файл прикрепить сюда надо. Не получается, пишет слишком большой файл. 0

@Narimanych 2739 / 1714 / 778 Регистрация: 23.03.2015 Сообщений: 5,429
	14.04.2023, 17:21	10
	AwnDala, Архивируйте и прикрепите 1

@Narimanych 2739 / 1714 / 778 Регистрация: 23.03.2015 Сообщений: 5,429
	14.04.2023, 17:57	14
	AwnDala, Игнорировать... В файле тот же код, что я выложил на форум... Никаких опасностей не представляет. 1

@AwnDala 0 / 0 / 0 Регистрация: 06.04.2023 Сообщений: 9
	14.04.2023, 18:01 [ТС]	15
	Когда вставляю в свой код, выдает такую ошибку Миниатюры 0

	14.04.2023, 23:18

shanemac51 Модератор 12080 / 4940 / 791 Регистрация: 07.08.2010 Сообщений: 14,492 Записей в блоге: 4
	14.04.2023, 20:16	16
	Сообщение от AwnDala Когда вставляю в свой код, выдает такую ошибку пропущены параметры height и width и получается ерунда, если запустить код 2 и более раз кстати, сейчас заметила - фото расположены видимо неправильно фото 1-10-11-12.......18-2-3-4-5-6-7-8-9 0