Одновременное изменение размера картинок в ворде в разных версиях.

Question

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

Answer 1

Если знакомы с VBA, напишите соответствующий макрос. Соответственно в таком случае, создаваемые документы должны поддерживать макросы - иметь расширение .docm и макрос должен быть доступен.

В качестве примера, можно использовать такой код макроса:

Sub ScalePic()

Dim inshp As InlineShape

    For Each inshp In ActiveDocument.InlineShapes

        Select Case inshp.Type

            Case 3, 4, 12, 13

            If inshp.ScaleWidth <> 100 Then

                inshp.Select

                    inshp.ScaleWidth = 100

                    inshp.ScaleHeight = 100

                    If inshp.Width > ColumnWidth(inshp) Then

                        inshp.Width = ColumnWidth(inshp)

                        inshp.ScaleHeight = inshp.ScaleWidth

                    End If

            End If

        End Select

    Next inshp

End Sub

Public Function ColumnWidth(inshp As InlineShape) As Single

Dim l As Single, r As Single, p As Single

    p = inshp.Range.PageSetup.PageWidth

    l = inshp.Range.PageSetup.LeftMargin

    r = inshp.Range.PageSetup.RightMargin

        ColumnWidth = p - (l + r)

End Function

Который проверяет ширину вставленной картинки при 100% размера картинки и если размер картинки меньше, то выбирает 100%, если больше, то приводит к размеру ширины страницы.

Answer 2

Приведённый в предыдущем сообщении макрос, проверяет 100% размер всех вставленных изображений относительно ширины листа, и если 100% размер вставляемой картинки меньше ширины листа, то оставляет размер 100%, если 100% размер вставляемой картинки больше ширины листа, то приводит размер к ширине листа.

P.S. Руководствуясь разделом Q9 справки, загрузите Ваш файл-пример текста и изображений в общедоступную папку OneDrive и ссылку вставьте в своё сообщение. И разверните более подробней Вашу задачу, как Вы создаёте документ и что у Вас не получается.

Answer 3

Добрый день, я так понимаю что другого способа нет? Т. е. в ворде такая функция отсутствует или они ее просто не продумали. С макросами я не работал, поэтому вопрос этот макрос позволяет задать определенный размер для всех картинок? Или он работает как-то по другому?