Автор Wakh задал вопрос в разделе Компьютеры, Связь
макрос/команда word 2003 и получил лучший ответ
Ответ от Пользователь удален[гуру]
У картинки свойства Height и Width изменяй
По поводу того можно ли там сразу процент написать не знаю, но можно вычислить этот процент от общего размера (ширины и высоты) картинки, а затем эти же свойства увеличить на полученный результат
Ответ от Андрей[новичек]
Выделенный рисунок описывается в редакторе так:
Sub Макрос1()
Selection.InlineShapes(1).Fill.Visible = msoFalse
Selection.InlineShapes(1).Fill.Solid
Selection.InlineShapes(1).Fill.Transparency = 0#
Selection.InlineShapes(1).Line.Weight = 0.75
Selection.InlineShapes(1).Line.Transparency = 0#
Selection.InlineShapes(1).Line.Visible = msoFalse
Selection.InlineShapes(1).LockAspectRatio = msoTrue
Selection.InlineShapes(1).Height = 266.75
Selection.InlineShapes(1).Width = 218.25
Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
Selection.InlineShapes(1).PictureFormat.CropRight = 0#
Selection.InlineShapes(1).PictureFormat.CropTop = 0#
Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
Selection.InlineShapes(1).Left = 0#
Selection.InlineShapes(1).Top = 0#
End Sub
Изменять размер придётся через переменные. Можно оставить только строки с высотой и шириной.
Выделенный рисунок описывается в редакторе так:
Sub Макрос1()
Selection.InlineShapes(1).Fill.Visible = msoFalse
Selection.InlineShapes(1).Fill.Solid
Selection.InlineShapes(1).Fill.Transparency = 0#
Selection.InlineShapes(1).Line.Weight = 0.75
Selection.InlineShapes(1).Line.Transparency = 0#
Selection.InlineShapes(1).Line.Visible = msoFalse
Selection.InlineShapes(1).LockAspectRatio = msoTrue
Selection.InlineShapes(1).Height = 266.75
Selection.InlineShapes(1).Width = 218.25
Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
Selection.InlineShapes(1).PictureFormat.CropRight = 0#
Selection.InlineShapes(1).PictureFormat.CropTop = 0#
Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
Selection.InlineShapes(1).Left = 0#
Selection.InlineShapes(1).Top = 0#
End Sub
Изменять размер придётся через переменные. Можно оставить только строки с высотой и шириной.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: макрос/команда word 2003