Статьи из блога

Статьи из блога

Макрос пропорционального изменения размеров формул

Рубрика: Вопрос-Ответ, Макросы
Метки: |
Воскресенье, 6 июля 2008 г.
Просмотров: 3099
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

Иван спрашивает:

В документе WORD есть около 300-400 формул. Необходимо сделать их пропорциональными то есть высота и ширина должны быть более-менее похожы. Одни формулы имеют больший размер а другие маленький.

Как можно для каждой формулы применить определенный процент ширины и высоты отталкиваясь от стандартного измерения?

Поскольку формулы редактора Word представляют собой графические объекты, то предлагаемый ниже макрос очень похож на макрос из заметки Макрос массового уменьшения размеров всех рисунков с небольшим отличием:

Sub changeFormulas()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
  With iShape
     .ScaleHeight = 150
     .ScaleWidth = 150
  End With
Next iShape
End Sub

]]>twitter.com facebook Вконтакте Google Buzz google.com bobrdobr.ru del.icio.us technorati.com linkstore.ru news2.ru rumarkz.ru memori.ru moemesto.ru]]>

Комментариев: 3

  1. 31.03.2010 в 10:02 | #1

    Спасибо!

  2. 01.04.2010 в 12:50 | #2

    Иван, может Вам пригодится статья Нумерация формул средствами Math Type из http://benoni.mylivepage.ru/file

  3. Svetlaya
    01.09.2010 в 22:14 | #3

    Разобралась, спасибо большое автору!!!!!!!!!!!!

Оставьте комментарий!

(обязательно)

^ Наверх