Статьи из блога
Изменение размера выделенного рисунка
Дмитрий спрашивает:
Как написать макрос, который назначал бы размер выделенного рисунка -- 40% от исходного размера?
Дмитрий, на эту тему уже была опубликована заметка на сайте: Макрос массового уменьшения размеров всех рисунков. В ней описан макрос для изменения размеров ВСЕХ рисунков.
Для изменения размера одного рисунка следует немного подкорректировать макрос с тем, чтобы изменялся лишь выделенный рисунок. Вот примерное решение:
Sub PicScale() 'Изменение размера рисунка на 40% от исходного Dim Message As String On Error Resume Next If Selection.Type = wdSelectionIP Then MsgBox "Пожалуйста, выделите ваш рисунок" Else 'проверка типа объекта и, если это картинка (InlineShape), то происходит ее 'преобразование в рисунок (Shape) If Selection.Type = wdSelectionInlineShape Then Selection.InlineShapes(1).ConvertToShape End If Selection.ShapeRange.IncrementLeft MillimetersToPoints(Message) 'Изменяем размер по высоте (по умолчанию) Selection.ShapeRange.Height = Selection.ShapeRange.Height * 0.4 'либо изменяем по ширине - выберите свой способ, а ненужный закомментируйте ' Selection.ShapeRange.Width = Selection.ShapeRange.Width * 0.4 End If End Sub
Рубрика: Вопрос-Ответ, Макросы, Стили и форматирование
Метки: макросы | рисунки | форматирование
Просмотров: 19105
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | рисунки | форматирование
Просмотров: 19105
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Комментариев: 2
В макросе присутствует столбец чисел от 01 до 20. Мне он мешает вставить код макроса в Редактор VB. Или я что-то не так делаю?
Иван, это нумерация. Чтобы скопировать код следует навести мышь на код и в правом верхнем углу появятся команды. Там есть и кнопка для копирования кода в буфер.